Select Code to Download

 #!C:/perl/bin
use strict;
use warnings;
...
open (DAT, ">$writefile") || die "Cannot Open File $!\n";
print DAT "$plain_text"; 
close($writefile);