Select Code to Download

use warnings;
use strict;

use Data::Dumper;
my ($contact) = Denali::Contact->find(contact_id => 1);
print Dumper($contact);

find_cycle($contact);

print STDOUT find_cycle($contact);