die:abs:accept:alarm:atan2:bind:binmode:join:bless:caller:chdir:chmod:
chomp:chop:chown:chr:chroot:pos:print:printf:prototype:push:quotemeta:
close:closedir:connect:cos:last:crypt:dbmclose:dbmopen:defined:delete:
die:dump:each:endgrent:last:endhostent:endnetent:endprotoent:endpwent:
endservent:eof:eval:exec:exists:exit:exp:extern:fc:fcntl:fileno:flock:
fork:format:formline:getc:or:getgrent:getgrgid:getgrnam:gethostbyaddr:
gethostbyname:and:gethostent:or:getlogin:getnetbyaddr:or:getnetbyname:
getnetent:getpeername:last:getpgrp:getppid:getpriority:getprotobyname:
getprotobynumber:getprotoent:getpwent:getpwnam:getpwuid:getservbyname:
getservbyport:and:getservent:and:getsockname:or:getsockopt:given:glob:
gmtime:and:goto:or:grep:hex:index:int:import:localtime:lock:log:lstat:
map:mkdir:last:ioctl:join:keys:kill:last:lc:lcfirst:length:local:link:
or:listen:msgctl:msgget:or:msgrcv:msgsnd:my:next:not:oct:open:opendir:
ord:our:or:pack:or:pipe:pop:pos:print:printf:prototype:push:quotemeta:
rand:read:and:readdir:readline:and:or:readlink:readpipe:recv:redo:ref:
rename:require:reset:return:reverse:rewinddir:rindex:rmdir:say:scalar:
seek:last:seekdir:select:semctl:semget:semop:send:setgrent:sethostent:
setnetent:and:setpgrp:or:setpriority:or:setprotoent:setpwent:shutdown:
and:shmread:shmwrite:setservent:or:setsockopt:and:shift:shmctl:shmget:
or:sin:sleep:socket:and:socketpair:and:sort:splice:split:sprintf:sqrt:
srand:stat:state:study:substr:symlink:syscall:sysopen:sysread:sysseek:
system:syswrite:tell:or:telldir:tie:tied:time:times:truncate:uc:undef:
and:unimport:unpack:unshift:untie:use:or:utime:values:vec:wait:unlink:
or:ucfirst:umask:waitpid:wantarray:warn:when:or:whereis:whereso:write:
seek DATA,0,0and print+uc(substr<DATA>,40,1)and print+(uc substr<DATA>
,68,1)and(print+uc(substr<DATA>,51,1))and!print+(uc substr<DATA>,31,1)
__DATA__:and:getservent:and:getsockname:or:getsockopt:given:glob:last:
die:abs:accept:alarm:atan2:bind:binmode:join:bless:caller:chdir:chmod:
chomp:chop:chown:chr:chroot:pos:print:printf:prototype:push:quotemeta:
close:closedir:connect:cos:last:crypt:dbmclose:dbmopen:defined:delete:
die:dump:each:endgrent:last:endhostent:endnetent:endprotoent:endpwent:
endservent:eof:eval:exec:exists:exit:exp:extern:fc:fcntl:fileno:flock:
fork:format:formline:getc:or:getgrent:getgrgid:getgrnam:gethostbyaddr:
gethostbyname:and:gethostent:or:getlogin:getnetbyaddr:or:getnetbyname:
getnetent:getpeername:last:getpgrp:getppid:getpriority:getprotobyname:
getprotobynumber:getprotoent:getpwent:getpwnam:getpwuid:getservbyname:
getservbyport:and:getservent:and:getsockname:or:getsockopt:given:glob:
gmtime:and:goto:or:grep:hex:index:int:import:localtime:lock:log:lstat:
map:mkdir:last:ioctl:join:keys:kill:last:lc:lcfirst:length:local:link:
or:listen:msgctl:msgget:or:msgrcv:msgsnd:my:next:not:oct:open:opendir:
ord:our:or:pack:or:pipe:pop:pos:print:printf:prototype:push:quotemeta:
rand:read:and:readdir:readline:and:or:readlink:readpipe:recv:redo:ref:
rename:require:reset:return:reverse:rewinddir:rindex:rmdir:say:scalar:
seek:last:seekdir:select:semctl:semget:semop:send:setgrent:sethostent:
setnetent:and:setpgrp:or:setpriority:or:setprotoent:setpwent:shutdown:
and:shmread:shmwrite:setservent:or:setsockopt:and:shift:shmctl:shmget:
or:sin:sleep:socket:and:socketpair:and:sort:splice:split:sprintf:sqrt:
srand:stat:state:study:substr:symlink:syscall:sysopen:sysread:sysseek:
system:syswrite:tell:or:telldir:tie:tied:time:times:truncate:uc:undef:
and:unimport:unpack:unshift:untie:use:or:utime:values:vec:wait:unlink:
or:ucfirst:umask:waitpid:wantarray:warn:when:or:whereis:whereso:write:
L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.