#! /usr/bin/perl

$|=1;

$in=$ENV{QUERY_STRING} || $ARGV[0];

@input=split("_",$in);

print "Content-type: text/plain\n\n";

foreach $package (@input) {
  $version=`apt-cache show $package | grep ^Version | head -1 | cut -f2 -d " "`;
  chomp $version;
  print "$package $version\n";
}