# Doing some stuff # .... use CGI::Fast while ($query = new CGI::Fast) { # Doing some stuff # ..... # Calling a subroutine that doesn't exist, in some cases (if $a_condition == 1) { &Undefined_Subroutine(); } } ...