use LWP::Simple qw/ $ua /;
$ua->show_progress(1);
if( $ua->get(..)->is_success ){ ... }
$ua->post();