#!/usr/bin/perl -wl

use LWP::Simple;

$_ = shift;

while ($_) {
   $_ = get "http://www.pythonchallenge.com/pc/def/linkedlist.php?nothing=$_";
   print;
   ($_)= /(\d+)$/g
}