use WWW::Mechanize;
use FindBin qw($Bin);

my $web_address = "https://www.edockets.state.mn.us/EFiling/edockets/s
+earchDocuments.do?method=showPoup&documentId={615DAF1F-C025-401F-9150
+-DB3337EF61A7}&documentTitle=201312-94506-01";

my $mech = WWW::Mechanize->new();
$mech->get($web_address);

open my $fh, ">:raw", "$Bin/result.pdf" or die $!;
print {$fh} $mech->content();
close $fh;
[download]