-.pl

#!/usr/bin/perl -w
length q eq ge and print chr ord uc q eval le and print chr ord uc q sin s and print chr oct ord q qx eq and print chr oct hex length q q redo index seekdir next chop ne getnetbyaddr abs setpwent getprotobyname continue getpwuid pack join or shmctl m syswrite seekdir do study while getsockopt q and print chr hex ord uc q eq le and print chr oct hex ord q tie lt and print chr oct hex length q q reset msgget splice socket dbmopen rmdir endhostent send syscall wantarray index getpwuid splice exists waitpid getpgrp shmwrite each localtime join caller q and print chr hex ord uc q eq le and print chr length q q gethostbyname setgrent split setnetent utime getc sethostent endnetent reset telldir getprotobyname msgctl shmctl flock foreach chmod wait undef vec local open sort exec s q and print chr oct hex length q q reset msgget splice socket dbmopen rmdir endhostent send syscall wantarray index getpwuid splice exists waitpid getpgrp shmwrite each localtime join caller q and print chr hex ord uc q eq ne and print chr hex ord uc q qx q