Select Code to Download

sub marine {
    my ($fore,$mid,$aft) = @_;

}

sub marine { 
      my $fore = $_[0];
      my $mid = $_[1];
      my $aft = $_[2];
}