use threads;

async {
    `t1.pl "arg1" "arg2" "arg3"`;
}->detach;

print "DONE\n";