#!/usr/bin/perl -wT
use strict;
sub foo {
        open(FOO, '>/tmp/foo') or die "$!\n";
        print FOO "this is a test\n";
}
sub bar {
        open (BAR, '/tmp/foo') or die "$!\n";
        while (<BAR>) {
        print;
        }
}
foo();
bar();

##</code><code>##

#!/usr/bin/perl -Tw
use strict;
sub foo {
        open(FOO, '/tmp/foo') or die "$!\n";
        while (<FOO>) {
                print;
        }
}
sub bar {
        open (BAR, '/tmp/foo') or die "$!\n";
        while (<BAR>) {
        print;
        }
}
foo();
bar();