If you're doing *any* recursive directory stuff, use the File::Find module. It simplifies the above to

perl -Mstrict -MFile::Find -wle 'find( sub {print}, @ARGV)' .