$ perl -MLWP::UserAgent -E ' say LWP::UserAgent::->new()->get("http://example.com")->status_line ' 200 OK