Select Code to Download

$SIG{ALRM} = sub { #Your code here };

...
    # anytime during this 60 sec you can cancel the alarm with alarm(0
+)
};

#!/usr/local/bin/perl -w

...
 close ($sock);
}