foreach $j (@j)
{
        print "Next Loop $j \n";
        eval
        {
                local $SIG{ALRM} = sub { die "Alarm\n"; };
                alarm(2);
                &callfc();
        };
        if ($@)
        {
                die unless $@ eq "Alarm\n";
                # timed out
        }
        else
        {
                # didn't
                print "Didnt\n";
        }
}
print "I am continuing with the code\n";