Select Code to Download

sub fred {
    my( $x, $y ) = @_;
    my $result = $x * $y;
    return $result;
}

sub genList {
    my( $start, $end, $step ) = @_;
...

    ## use list
}