You seem to be missing a couple of lines from the beginning of your script :)

#!/usr/bin/perl -w
use strict;
[download]

.02

cLive ;-)

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