gistfile1.pl

#!/usr/bin/perl

my $input = $ARGV[0];

if ( !-e $input ) {
    die "File not found";
}
if ( -d $input) {
    die "Path is a directory";
}

print "Checking strict for $input\n";
system ('perl', '-Mstrict', '-X', '-c', $input);
print "\nChecking warnings for $input\n";
if ( $input =~ /\.pm$/ ) {
    my $namespace = $input;
    $namespace =~ s{\.pm$}{}i;
    $namespace =~ s{^/+}{};
    $namespace =~ s{/}{::}g;
    my $use_string = "use $namespace (); print STDERR \"$input syntax OK\"";
#    print "Detected module, namespace is $namespace\nexecuting the following line to validate:\n$use_string\n";
    system ('perl', '-w', '-e', "$use_string");
    print "\n";
}
else {
    system ('perl', '-w', '-c', $input);
}