use strict;
my ($width, $height);

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

for (my $i = 0; $i < $height; $i++)
{
  for (my $j = 0; $j < $width; $j++) {
    print "*";
  }
  print "\n";
}