#!perl

open IN, "dat/pid.txt" or die;
$_ = <IN>;
chomp;
close IN;
kill "TERM", $_;