Select Code to Download

sub mysort {
        my ($direction) = @_;
...
        ($direction eq "DESC" ? -1 : 1);

}

my $orderby = "age"; # or name, dob, etc
my $direction = "ASC"; # or DESC
...
                $sense;
        } 
}