#!perl
use strict;
use warnings;
use File::Temp;
$ENV{PAR_TMPDIR} = File::Temp::tempdir(TMPDIR => 1, CLEANUP => 1);
# add -I options corresponding to @INC after the first element of @ARGV,
# then execute it
splice @ARGV, 1, 0, map { "-I$_" } @INC;
system(@ARGV) == 0
or die "system(@ARGV) failed: $!\n";