#!/usr/bin/perl

print "Real part: ";
chomp($real = <STDIN>);

print "i coefficient: ";
chomp($imag = <STDIN>);

$abs = sqrt($real*$real + $imag*$imag);

print "Absolute value: $abs\n";