use strict; 
test1();

sub test1 {
    my $v=0;
    if ($v = get_true()) {
        goto &test1;
    }
}

sub get_true {
    return 1;
}