use strict; 
test1();

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

sub get_true {
    return 1;
}