Select Code to Download

sub openFileForAppending(*$)
{
...

    return $handle;
}

openFileForWriting(TEST, 'test.txt');
print TEST "A test.\n";
close TEST;

openFileForWriting(TEST, 'test.txt');
print TEST test();
...
{
    return "Another test.\n"
}