check_deps('STEVEB', handler => \&my_handler);

sub my_handler {
    my $data = shift;

    for my $dist (keys %$data){
        for my $dep (keys %{ $data->{$dist} }){
            my $dep_ver = $data->{$dist}{$dep}{dep_ver};
            my $cur_ver = $data->{$dist}{$dep}{cur_ver};

            print "$dist has dep $dep with listed ver $dep_ver " .
                  "and updated ver $cur_ver\n";
        }
    }
}