#!/usr/bin/perl 

use strict;
use warnings;

while (0) {
    sub foo {print "Hello, world\n"}
}

foo () if defined &foo;
__END__
Hello, world