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

##</code><code>##


use Test::More tests => 1;
use Getopt::Long;
use warnings;

my $input;
GetOptions( "input=s" => \$input );
ok( 1==1, 'test 1 ok' );