#!/usr/bin/perl -w
# attempt to kill a pid

use strict;

my $pid;
open (PID, "<signwriter.pid");
while(<PID>){
	$pid = $_;
}
kill 'ALRM', $pid;

##</code><code>##

system "perl ./kill.pl";