Select Code to Download

#!/usr/bin/perl

...
    my $sig = shift;
    say "somebody told me $sig";
}

$ ./t_signal.pl &
[1] 2637
...
$ kill -s USR1 2637
somebody told me USR1
$

#!/usr/bin/perl

...
    my $sig = shift;
    say "somebody told me $sig";
}

$ ./t_signal_1.pl &
[1] 2638
...
$ 
[1]+  User defined signal 1   ./t_signal_1.pl
$