Help for this page

Select Code to Download

Select or download this

$ perl -e'
    my ($dir_qn) = @ARGV;
...
        or die "Can'\''t open dir $dir_qn: $!\n";
' somefile
Can't open dir somefile: Not a directory