Select Code to Download

open( $fh, '>', \$variable) || die ....

open(MEMORY, '>', \$var)
    or die "Can't open memory file: $!\n";
print MEMORY "foo!\n";