Select Code to Download

  my $foo;

...
    ($foo) = (split)[2];
    # shower and go home
  }

  sub versive {
    # some pushups
...
    }
    #
  }