$ cat xxx
#!/usr/bin/perl -l
BEGIN{close STDERR}print"perlmonks rule!";truncate$0,-1+-s$0;exec$0;#######
$ ./xxx
perlmonks rule!
perlmonks rule!
perlmonks rule!
perlmonks rule!
perlmonks rule!
perlmonks rule!
perlmonks rule!
perlmonks rule!
perlmonks rule!
perlmonks rule!
$