If you just want to verify that the file is there, try a HEAD request instead of a GET request. If that gives you a false negative (it might, depending on the server), then set the
max_size attribute of your
LWP::UserAgent object to something like 512 bytes, so LWP will abort very quickly:
my $ua = LWP::UserAgent->new (max_size => 512); # note extra param
my $tmpfile;
foreach my $rev ("-", ('A'..'Z')) {
$tmpfile = "$file$rev.$ext";
my $response = $ua->get("$path/$tmpfile"); # simpler interface
## you need to save $tmpfile here!
last if $response->is_success; # better than yours
}
-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.