perl -Mstrict -Mwarnings -MLWP::UserAgent -le 'my $ua = LWP::UserAgent->new; my $header = $ua->head( $ARGV[0] ); print $header->code;' 'http://example.org/'