Select Code to Download

print "Enter width\n";
chop($ans = <>);
...
    }
  print "\n";
}

use strict;
my ($width, $height);
...
  }
  print "\n";
}

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

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