The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
RHNELSON / GetWeb-1.11 / t / number.t 
#!/usr/bin/perl5

use t::GetWebTest;
t::GetWebTest::go("1 FOLLOW 1","<URL:TEST/promed_old.html>",1);