sub on {
        my $file = shift;
        local \*F;
        open F, $file or die "Couldn't open $file: $!";
    }