my $path = './Namenimport/test.pl';
do  $path or die $!;