Oops.

Left out the filename for the openafter extracting it to its own scalar for debugging purposes. Now mine is sitting and spinning; it may be uploading the file, hard to tell.

my $open_ret = open ( UPLOADFILE, ">" ) or print "$!\n";
my $open_ret = open ( UPLOADFILE, ">", $output_filename ) or print "$!
+\n";
[download]