#!/usr/bin/perl

if (@ARGV) {
    die "There was a command line parameter";
}
else {
    die "No command line stuff here.\n";
}