{
    my $var;
    sub fred {
        if( $var++ ) {
             ...;
        }
        ...
    }
}