$size = 0; use LWP::Simple; while ($size == 0) { my $data2 = LWP::Simple::get $site; my $size = length($data2); print "$size\n"; }