[perl]return num1*num2

#!/usr/bin/env perl
#input two number
#output num1*num2
$shell="clear";
print `$shell`;
print "===============================================\n";
print "2.11[4])\nPlease enter two number.\n";
print "num1:";
$num1=<STDIN>;
print "num2:";
$num2=<STDIN>;
print "output value = num1*num2 = ".$num1*$num2 ."\n";
print "===============================================\n";