Select Code to Download

#!/usr/bin/perl

...
my $content = post($url, $Data);

print $content;

#!/usr/bin/perl

...
open (FH, ">binaryoutput");
print FH $q->param() if ($q->param());
close(FH);