Select Code to Download

sub get_cat { #cat stands for category, by the way
  my($hash,$amnt) = @_;
...
  }
...and I planned to eval $code, but I realized the problem
}

int(rand(99)) < 50 ? "a" : int(rand(99)) < 40 ? "b" : "c";