Select Code to Download

sub func {
   my ( $str, $desktop_info, $files ) = @_; #sref, href, aref
...
  ...

}

sub func {
   my ( $str->$, $desktop_info->%, $files->@ ) = @_; 
...
  ...

}