Select Code to Download

#!/usr/bin/perl

...
    select undef, undef, undef, .1 + rand 1; # simulate processing tim
+e
    return { from => 'read_RM', results => { 2..5} };
    }

$VAR1 = {
          'results' => {
...
                       }
        };