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

Hmmm... Kind of pretending to use "strict" and "diagnostics", actually using both "warnings" and "-w". I doubt this is all that good.