Name: Anonymous 2014-01-25 17:42
#!/usr/bin/perl -w
length q chmod lc and print chr ord uc q chop uc and print chr ord q each le and print chr ord q qx q and print chr ord q q q and print chr ord uc qw q m q and print chr ord qw q y q and print chr ord q q q and print chr ord uc q each le and print chr ord qw q not q and print chr ord qw q use q and print chr ord q msgctl m