perl - Test::Moreでテストするためにrequire_ok '*.pl'を呼び出すときに引数を渡す方法

Question

*.pl ファイル内の各サブルーティングを個別にテストする方法を考えています。ただし、一部の *.pl には引数が必要なため、'require' 句は使用できません。

例えば

use Test::More;
require "some.pl"

「require」で常にテストに失敗します。
「some.pl」には引数が必要で、末尾が

exit(0);

ファイルの。

「*.pl」内のすべてのサブルーティングを個別に「Func1、使用法など」をテストしたいだけです。

some.plはそのようなものです

my ( $cmd) = @ARGV;  
if (!defined $cmd ) {
    usage();
} else {
    &Func1;
}
exit(0);

sub Func1 {
      print "hello";
    }

sub usage {
     print "Usage:\n",
    }

"Test::More" で "sub Func1" のテスト コードを書くにはどうすればよいですか?

任意の提案をいただければ幸いです。