sub on {
    my $file = shift;
    open F, $file or die "couldnt open $file: $!";
}



##</code><code>##

our *F