Select Code to Download

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

 $cmd = qq{nohup perl.pl &};
my $pid = fork();
...
    setpgrp(0, $$) || die "Cannot do SetGroup\n";
    exec "$cmd" || die "Bad exec $!";
}