#!/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();