Perl

Sometimes perl is a little too forgiving, this little bug has existed for over two years in one of my programs and I just now spotted it...

if(length($hostname < 5)) {
#precaution
return 1;
}