use LWP::Simple;

my $code = getstore ('http://www.foo.com/stuff/gewgaws.html', '/my/file/gewgaws.html');
print "Succeeded!\n" if $code == 200;