print "Enter width\n";
chop($ans = <>);
print "Enter height\n";
chop($ans2 = <>);

for ($j=0;$j < $ans2;$j++)
{
print "*"x$ans."\n";
}