in reply to Returning an error message when <STDIN> is not in use

#!/usr/bin/perl -w
use strict;
if (scalar(@ARGV) < 1) {
    print "Usage: perl myprog.pl (path_to_file)\n";
    exit;
}
... rest of perl program

[download]

...the majority is always wrong, and always the last to know about it...

In Section Seekers of Perl Wisdom