##################
sub sample {
##################
        my $t           = shift;
        my ($p, @r, $v, $rt);
     $t->get_handles(params=>\$p, rtrs=>\@r, vars=>\$v, t=>\$rt);

        my @subs;
        foreach my $rh (@r) {
         <some command at execution>
}