Select Code to Download

sub func {
   my ( $rs_str, $hr_desktop_info, $ha_files ) = @_; 
...
  ....

}

    my ($str, $desktop_info, $files) = @_; # rs, rh, ra