#!/usr/bin/perl --

use strict;
use warnings;


if(not $ENV{VROOM} ){
    $ENV{VROOM}=1;
    use File::Spec;
    my $self = File::Spec->rel2abs(__FILE__);
    my $dir = "my_dir";
    system("prove -v $self :: --input=$dir");
    system('prove', '-v', $self ,'::', "--input=$dir");
} else {
    use Test::More;
    use Getopt::Long;

    plan tests => 1;

    my $input;
    GetOptions( "input=s" => \$input );
    ok( $input, "got input=$input" );
}

##</code><code>##

$ pmvers Test::More App::Prove Getopt::Long
Test::More: 0.94
App::Prove: 3.17
Getopt::Long: 2.38

$ prove -V
TAP::Harness v3.17 and Perl v5.10.1