You aren't printing a \n after the print statement. Some (many?) Perl versions need at least one for output to display (or so I've found).

.02

cLive ;-)

--
seek(JOB,$$LA,0);