Select Code to Download

sub frobnicate {
   my ($foo, $bar, @remainder) = @_;
   print $remainder[0] == 3 ? 'yum' :'eew';
}