sub LooksLikeAMakefile($) { my $Makefile = shift; my $Result = 1; my $filetype = `file -b $Makefile`; chomp($filetype); print "$filetype\n"; if (index($filetype, 'HTML', 0) != -1) { print "nope, that's HTML, not a Makefile as far as I'm concerned....\n"; $Result = 0; } return $Result; }