my $ret = system( q[ "D:\Program Files\bin\t.pl" ]);