use strict;
sub bar($) {
    print shift
};

FOO: {
    bar FOO;
};