throws_ok (sub {main ()}, qr/Usage:/, 'main () should give a usage error without any arguments');