#!/afs/athena/contrib/perl/perl

&test();
$of = 'FILE';
print $of "test-99\n";

sub test {
    open(FILE, ">/tmp/test1");
    FILE;
}