#!/usr/bin/perl -w

.
.

# Do some things to make Taint happy:
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer
$ENV{PATH} = '/bin:/usr/bin:/usr/local/bin';

.
.

my(%options);
getopts('nhkf:p:', \%options);
if($options{'k'}) {  # kill running program.
  my($pid) = `cat $HOME/program.pid`;
  if($pid =~ m{([0-9]+)}) { $pid = $1; }
  kill 'INT', $pid;
  exit(0);
}