use strict;
use warnings;
 my $pid = fork();
  unless ( defined($pid) ) {
     die "fork failure! ";

   elsif ( $pid ) {
      # child
      $SIG{HUP} = sub { print "HUP signal\n"; };
      sleep(5);

      #-->> if use an external script, and not a file with parameters
      #>>>> reguire 'c:\perl\progs\garbl.pl';
      exit 1;
  }

  sleep(2);

  kill(15,$pid);