#!/usr/bin/env perl

use strict;
use warnings;

usage() unless @ARGV;

print scalar(@ARGV), ": @ARGV\n";

sub usage {
    warn "Argument required!\n";
    exit;
}

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 4;
use Test::Output;

stderr_is { qx{perl -c pm_script_testing.pl} }
            "pm_script_testing.pl syntax OK\n", 'Test Syntax';

stderr_is { qx{pm_script_testing.pl} }
            "Argument required!\n", 'Test Zero Arguments';
            
is(qx{pm_script_testing.pl 123}, "1: 123\n", 'Test One Argument');

stdout_is { system qw{pm_script_testing.pl 123 qwe} }
            "2: 123 qwe\n", 'Test Two Arguments';

##</code><code>##

$ pm_script_testing.t
1..4
ok 1 - Test Syntax
ok 2 - Test Zero Arguments
ok 3 - Test One Argument
ok 4 - Test Two Arguments