Select Code to Download

#!/usr/bin/perl -w

...
  kill 'INT', $pid;
  exit(0);
}

  my($pid) = `cat $HOME/program.pid`;
  if($pid =~ m{([0-9]+)}) { $pid = $1; }
  kill 'INT', $pid;
  exit(0);