http://www.perlmonks.org?node_id=19906

#!/usr/bin/perl -w
print "Conten"; print "t-type";print ":";print "text";print "/" ;
# za s-dafjlsjfkalwfjdaslfjaslkjdfadlsjflasfjlsakjdf jksljadfl9
print "h"; print"t";   print "m";   print "l";   print "\n\n" ;
#jkldfsaljf jfsdj43543555555555555555 xxxxxxxxxxxxxx    ffffff9
sub rrr{my($zope) = @_; print $zope;exit;                     }
# jfffffffffffffffffffffffffffffff eeeeeeeeeeeeeeeeeeeeeeeeeee9
open (ZAZ, "/tmp/bkcount") or rrr("hhmmmm")                   ;
$raz =<ZAZ>     ;                               close (ZAZ)   ;
# ddddddddddddddddddddddddddddddddd fffffffffffffffffffffff dd9
for ($i = $raz; $i>1;$i)                                      #
# fjdksjlsau90q234u58902439059999999999999999999999999999999999
{                  $f  =  "/work/"  .  $i  .  "x.html"        ;
$f1 =  "/home/usr/"  .  $i  .  "x.html"                       ;
# j 4 4 f f f                    ffffffffffffffffffffffffffffff
$f2 =  "/tmp/"  .  $i  .  "x.html";                           ;
#jk jkldk498039999999999999999999999999999999999999999999d 4932
print $f; print $f1; print $f2;}                      exit(0) ;