Help for this page
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);