#!/usr/bin/perl

sub asd {
	
	print "WUT\n";
	
	return { 1 => 2 };
}

$SIG{ 'ALRM' } = sub {
	print "aborting this shit\n";
	exit 1;
};

alarm( 2 );

while( my ( $k, $v ) = each( %{ asd() } ) ) {
	
}

alarm( 0 );

exit 0;