use warnings; use strict; use Test::More; use Test::Exception; BEGIN { plan tests => 2, todo => [] } # ------ load script without arg - expect failure throws_ok { require 'luckynumber.pl' } qr/missing argument/, 'needs argument'; # ------ load script with arg - expect ok ok( require 'luckynumber.pl --luckynumber=42', 'script loaded ok');