#!c:/perl/bin/perl -w

if (defined($ARGV[0]) and $ARGV[0] eq 'skip') {
  shift @ARGV;
}
else {
  exec $ENV{TEST_PERLROOT}, $0, 'skip', @ARGV
    if $ENV{TEST_PERLROOT};
}

print 'My arguments: ', join(', ', @ARGV), $/;