Select Code to Download

#!/usr/bin/perl

...
    exit;
  }
}

#snipped
if (my $pid=fork())
...
    unlink($pidfile); # otherwise it doesn't go away
    exit;
  }