$cmd = qq(nohup perl.pl &);
system($cmd);