test.pl

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);

sub sighandler {
    my ( $name ) = @_;

    return sub {
        open my $fh, '>', '/tmp/result';
        say {$fh} "got signal $name";
        close $fh;
        exit 0;
    };
}

$SIG{TERM} = sighandler('TERM');
$SIG{INT} = sighandler('INT');
$SIG{HUP} = sighandler('HUP');

sleep 60;