Select Code to Download

sub cat_waves(@){
   my ($out, @list)=@_;
...
    myprint ("$me: Success \"$out\" has been created!");
    return;
} #end of cat_waves()