use strict; use warninges; use App::Prove; #put set-up code here my $oProve = App::Prove->new; $oProve->process_args(@ARGV); my $iExit = $oProve->run ? 0 : 1; #put tear-down code here #and we're done exit($iExit);