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

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