See perlsub.
update: I see kyle beat me to it.
In reply to Re: Subroutines within if statements by Joost in thread Subroutines within if statements by muizelaar