According to Manoj Srivastava:
> % echo '#!/usr/bin/perl' > script.tmp
> % echo 'BEGIN { print join "\n" => keys %INC; exit; }' >> script.tmp
> % cat script >> script.tmp
> % ./script.tmp | ...
Try it... that never outputs anything. :-)
I think an END{} block combined with "perl -c" is a better solution.
--
Chip Salzenberg - a.k.a. - <chip@perlsupport.com>
"When do you work?" "Whenever I'm not busy."