{
    my $var;
    sub bus {
        $var++;
    }
}