...
use strict;
use File::Glob qw(bsd_glob);

@ARGV = glob '*.pl'; # to treat all .pl files

...