- or download this
main( @ARGV ) unless caller( );
- or download this
#!/usr/bin/perl
...
throws_ok (sub {main( 'bad command' ) }, qr/Unknown command 'bad comma
+nd'/,
'... or with a bad command given');
- or download this
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.