Select Code to Download

#!/usr/bin/perl
use warnings;
...
    open(my $out, ">", $outfile->{filename}) or die "Cannot open the f
+ile!";
    print $out $outfile->{content};
}