debian pkg mapper

#!/usr/bin/perl

print "digraph g {\n";

open(PKGS, "dpkg -l |egrep \"^[a-zA-Z0-9]{2}  \" | awk {'print \$2'} |");
while(<PKGS>){
  my $pkg = $_;
  chomp($pkg);
  print "\"$pkg\" [shape=square];\n";

  open(DEPS, "apt-cache show $pkg |grep Depends |sed -e \"s/([^)]*)//g\" | sed -e \"s/Depends: //\"| sed -e \"s/ //g\" | ");

  while(<DEPS>){
    my $dep_list = $_;
    foreach $dep (split(',',$dep_list)) {
      chomp($dep);
      print "\"$pkg\" -> \"$dep\"\n";
    }
  }
  close(DEPS);
}

close(PKGS);
print "}\n";