Select Code to Download

if ($date) {
    date();
}

if ($date) {
    $when = date($date);
}

sub format_date_mdy {
    my($date) = @_
    my $dt = parsedate($date);
    return strftime("%m%d%y", localtime($dt));
}

login($command, $login, $password);
...

    ...
}

my $job = shift or die "Need a job name";

my $job = shift or pod2usage(
    -message => "Need a job name",
    -verbose => 0,
    -exitval => 1,
);

if ($options{t}) {
    if ($job && $queue && $date && $time) {
...
    }
}