use Test::Harness; my $dir = "my_dir" system("prove -v tests/at_test_level.t :: --input=$dir");