Also possible - but rude - is to put just a while(0) {} around it.

#!/usr/bin/perl 

use strict;
use warnings;

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

foo () if defined &foo;
__END__
Hello, world
[download]

Abigail