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