Select Code to Download

$VAR1 = {
          'quux' => 'perl',
          'foo' => 'bar'
        };
$VAR1 = 2;

sub client_input {
  my ($input, $wheel_id) = @_[ARG0, ARG1];
...
  
  $_[HEAP]->{clients}->{ $wheel_id }->put( $input );
}