#!/usr/bin/perl -w
# GET method form
use LWP::Simple;
use URI::URL;

#$distro=<>;

$url=url('http://distrowatch.com/stats.php?section=popularity');
$content=get($url);
$content =~ s/<(?:[^> '"]*|([ '"]).*?1)*>//gs;

$content =~ m#<th class="News">1</th><td class="News"><a
href="(.*)">(.*)</a>#i; my $list = $1;

print $list, "\n";