The following code:

use strict;
use warnings;

my $timeout = 2;

eval {
    local $SIG{ALRM} = sub { die "alarm\n" };
    alarm $timeout;
    here: goto here;
    printf "Got past the goto!\n";
    alarm 0;
};

print "ERROR: $@" if $@;
[download]

Prints:

ERROR: alarm
[download]

which indicates that a simple non-terminated loop is not the problem. Me thinks you need to look closer at what openRemoteSql is doing.