Select Code to Download

main( @ARGV ) unless caller( );

#!/usr/bin/perl

...

throws_ok (sub {main( 'bad command' ) }, qr/Unknown command 'bad comma
+nd'/,
        '... or with a bad command given');

1..5
ok 1 - loaded file okay
...
parameter `output' not set
# Looks like you planned 5 tests but only ran 1.
# Looks like your test died just after 1.