Compare AnyEvnet->signal with %SIG about calback argument.

ae-signal.pl

#!/usr/bin/env perl

use strict;
use warnings;
use AnyEvent;
use Data::Dumper;

my $cv = AnyEvent->condvar;

my $ae_signal_term = AnyEvent->signal(
    signal => "TERM", cb => sub {
        my @arg = @_;
        print "callback arguments are " . Dumper(\@arg);
    },
);

$cv->recv();

exit;

__END__

Execution sample:
  $ perl ae-signal.pl &
  $ kill -TERM %2
  callback arguments are $VAR1 = [];

sig-signal.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

$SIG{TERM} = sub {
    my @arg = @_;
    print "callback arguments are " . Dumper(\@arg);
};

sleep 1 while 1;

exit;

__END__

Execution sample:
  $ perl sig-signal.pl &
  $ kill -TERM %2 
  callback arguments are $VAR1 = [
    'TERM'
  ];