use warnings;
use strict;

my($amt1,$amt2,$mytot,$perltot,$diff);

print "Enter amt1 : ";
chomp($amt1 = <STDIN>);
print "\nEnter amt2 : ";
chomp($amt2 = <STDIN>);
print "\nEnter the total : ";
chomp($mytot = <STDIN>);

$mytot = $mytot * 100;		# convert to cents

$perltot = ($amt1 * 100) + ($amt2 * 100);	#convert to cents

$diff = $perltot - $mytot;

print "$mytot - $perltot = $diff\n