#!c:/perl/perl.exe
print "My first Perl script\n"; ##the first line in the world of perl.
print "\n";

print "Please tell me the multiplication table required: "; ## your input  
$num=<STDIN>;

print "Please tell me the multiplication Factor ( if you put more than 100,make sure you have a big screen!  )        : ";
$y=<STDIN>;
## the Multipling factor 
for ($x=1;$x<=$y; $x++)
	{
		$tab=$num*$x;
print "the table is :   $tab \n";
	}