#!/usr/bin/perl $__= qq(=!<=>==!<= alarm=! binmode>==!<=>= uc=! bind>= chr: chop<= defined>= do<= crypt=! exec<= lc=! read<= log: next>= msgget=! open<=); map{$__.=$_} <DATA> ;$__ =~ s/\n//g ;$__ =~ s/\s//g; ;$__ =~ y/[a-z]/ / ;$__ =~ s/=!|<=/_\//g ;$__ =~ s/>=/_\//g ;@__= split(/:/,$__); eval{use Time::HiRes qq(sleep)}; map{@___ = split("",$_); map{ print ;$|=((2*2)/4); sleep((((2*2)*2)) /((((((1*16)*5)*2)*5)*2) /(2*5))); }@___; print"\n";}@__; __END__ pipe=!<=>==! no>==!<==! ref:>= my<= rmdir=!=!<=>==! sin>= setpwent<= time=! vec:<=>==! wait<= setgrent>= uc>= getpwent=! kill>= rmdir