-#!/usr/bin/perl -Tw
+#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
};
my $ua = new LWP::UserAgent;
+ $ua->timeout(1800); #30m, some reports can take a while
$ua->agent("FreesideFetcher/0.1 " . $ua->agent);
my $req = new HTTP::Request GET => $url;