#!/blah/perl

use Config::Crontab;

my $ct = new Config::Crontab;
$ct->read;

my ($r) = $ct->select(-command_re => 'test');
print $r . "\n";                       # Config::Crontab::Event=HASH(0xhex)
print %r . "\n";                       # 0

my %x = $ct->select(-command_re => 'test');
print %x . "\n";                       # 1/8

my (%y) = $ct->select(-command_re => 'test');
print %y . "\n";                       # 1/8