Select Code to Download

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