Problem: using perl IO::Socket::INET and $SIG{ALRM}

Is it possible to use $SIG{ALRM} together with IO::Socket::INET tcp server? Seems that triggered alarm functions cause accept to end with error, for example:

#!/usr/bin/perl

use IO::Socket::INET;


my %sock_parm;
$sock_parm{Type}      = SOCK_STREAM;
$sock_parm{Proto}     = "tcp";
$sock_parm{LocalPort} = 8080;
$sock_parm{Listen}    = SOMAXCONN;
$sock_parm{Reuse}     = 1;

my $sock = new IO::Socket::INET(%sock_parm);


sub tick {
  print "Tick!\n";
  alarm(5);
}

$SIG{ALRM} = \&tick;
alarm(5);


print "Waiting...\n";
my $client = $sock->accept() || print "Failure!\n";
print "Done.\n";