When processing the @ARGV array with a while (<>) { ... } loop, you can access the filename in $ARGV.

japhy -- Perl and Regex Hacker