c:\@Work\Perl\monks>perl -wMstrict -le
"print qq{perl version: $]};
 ;;
 my ($fred, $barney) = (7, 6);
 ;;
 sub combo
 {
   my $sum = $fred * $barney;
   return $sum;
     if ($fred > $barney)
     {
      ...;
     } else {
         ...;
     }
 }
 ;;
 print combo();
"
perl version: 5.012003
42