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