perl_script

perl_script 

filename

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