use LWP::Simple;
 is_success (getprint ($URL)) or warn "Fetch failed";