Select Code to Download

#!/usr/bin/env perl

...
    warn "Argument required!\n";
    exit;
}

#!/usr/bin/env perl

...

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

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