Perl Net::FTP Retry Code Needed

I need this code rewritten to retry 3 times waiting longer each on fail. Before each retry it shall print an update. This is needed because during busy times and bad connections the connecting or putting of the file fails sometimes. If fail, wait 10 seconds and try again. (print "Waiting 10 seconds to Retry") If fail a second time wait 15 seconds and try again. (print "Waiting 30 seconds to Retry") If fail a third time, wait 60 more seconds and try again a final time.(print "Waiting 60 seconds to Retry") If fails a fourth time, print error. $ftp = Net::FTP->new($spr_host_name, Timeout => 30, Passive => 1, Debug => 1,) or die print "\n Can not connect to SPR: $@<br>--FTP Down-- \n"; >>>>>>>>>>>>>> RETRY ABOVE LINE $ftp->put($local_file,$remote_file) or die print "Couldn't Send EDI Request to SPR! $@\n"; >>>>>>>> RETRY ABOVE LINE ----------------------------------------------------------------------- here is the block of perl code. (using Net::Ftp) $ftp = Net::FTP->new($spr_host_name, Timeout => 30, Passive => 1, Debug => 1,) or die print "\n Can not connect to SPR: $@<br>--FTP Down-- \n"; $ftp->login($ftp_login_name,$ftp_login_pass) or die print "Couldn't Login $@\n"; $ftp->put($local_file,$remote_file) or die print "Couldn't Send EDI Request to SPR! $@\n"; print "putting $local_file -to- $remote_file\n"; $ftp->rename($remote_file,$remote_file2) or die print "Couldn't Rename $@\n"; ------------------------------------------------------------------------------ No access to our servers will be given. Please provide the tested and finished block of code in a text file attachment.