#!/usr/bin/perl

use warnings;
use strict;

use Term::Size;

my $columns = Term::Size::chars();
my $package = $ARGV[0];

my $dump = `w3m -dump -cols $columns "http://bjorn.haxx.se/debian/testing.pl?package=$package"`;
$dump =~ s/^.*?(?=Checking)//s;
$dump =~ s/^\[.*//ms;
print($dump);