cat >> test.pl
#!/usr/bin/perl -w
use strict;
if( "1" eq "2" ) {
    print hello();
}   
sub helloBROKEN {
    print "Hello world\n";
}
----------------------------------
> perl -MO=Deparse test.pl 
test.pl syntax OK
'???';
sub helloBROKEN {
    print "Hello world\n";
}
[download]