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