#!perl -w
use strict;
$|=1;
writefile();
print FILE "goodbye\n";
print `cat tmptmp`;

sub writefile {
    # local *FILE;
    open (FILE, ">tmptmp") or die $!;
    print FILE "hello\n";
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.