# mock a timeout, but wrap this in an eval/alarm
my $a_long_time = 900; # seconds
*Package::method = sub { sleep $a_long_time; return; };