use strict;
use warnings;

my $num1;
my $num2;

print "Please enter the 2 number. ";

$num1 = <STDIN>;
chomp $num1;
$num2 = <STDIN>;
chomp $num2;

print "result : " . CalAbsolute ($num1, $num2) .  "\n";

sub CalAbsolute {
	my ($num1, $num2) = @_;

	return (abs($num1 - $num2));
}