Select Code to Download

package Beginning;
use Fcntl;
...
        print $_  @_;
        print $_ $buf;
}

tie *FH, "Beginning";
open(FH, "Hello");  # This will actually be read/write
print FH "Look ma, I'm first", scalar(localtime), "\n";
close(FH);