use Test::More tests => 1; system("$^X killperl -h"); pass("killperl -h");