use strict;
use warnings;

while (1) {
   print "Enter pid to signal:";
   my $pid = <STDIN>;
   chomp $pid;
   print "\nSending signal to $pid:...";
   kill 21, $pid;
   print "\n";
}