use FindBin qw($Bin);

system($^X, "$Bin/test.pl");