sub nextelt { @s = @_; use LWP::Simple; $q = join("%2c", map int, @s); $d = get("http://www.research.att.com/~njas/sequences/?q=$q&n=1&fmt=3"); $s = join(",",@s); for $t ("VWX", "STU") { $l = ",".join(",", $d =~ /^%[$t]\s+\S+\s+(.*)/mg); $l =~ /$s,(-?\d+)/ and return $1; } } 
warn nextelt(5, 14, 42, 132, 429, 1430);