perl_script

perl_script filename

Takes one argument, a filename, and returns the filename if the argument is likely to be a Perl script.