Help for this page
$ perl -MLWP::UserAgent -E ' say LWP::UserAgent::->new()->get("http://example.com")->status_lin +e ' 200 OK