diff --git a/lib/Alien/Packages.pm b/lib/Alien/Packages.pm
index a1e6d7e..a3d99b6 100644
--- a/lib/Alien/Packages.pm
+++ b/lib/Alien/Packages.pm
@@ -21,13 +21,16 @@ our $VERSION = '0.005';
     my @packages = $ap->list_packages();
     foreach my $pkg (@packages)
     {
-	print "$pkg->[0] version $pkg->[1]: $pkg->[2]\n";
+	print "$pkg->{PkgType} version $pkg->{Package}: $pkg->{Version}\n";
     }
 
     my %perl_owners = $ap->list_fileowners( File::Spec->rel2abs( $^X ) );
     while( my ($fn, $pkg) = each( %perl_owners ) )
     {
-	print "$fn is provided by ", join( ", ", @$pkg ), "\n";
+        foreach my $item (@$pkg)
+        {
+	    print "$fn is provided by $item->{Package} $item->{PkgType} package\n";
+        }
     }
 
 =head1 SUBROUTINES/METHODS