use strict;
use PPM::UI;

my $target_list = PPM::UI::target_list();
my $rep_list = PPM::UI::repository_list();

PPM::UI::install( $rep_list->{ "result" }, $target_list->result->[0], "XML::Tiny", {"dryrun" => 0}, \&status_callback));


sub status_callback
{
     my($name, $version,   $tname, $something, $p0, $p1, $p2) = @_;

     print "$name \t $version \t $tname \t $something \t $p0 \t $p1 \t $p2 \n";
}