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

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

##</code><code>##

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";
}

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;

$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}