view release on metacpan or  search on metacpan

bin/lwp-online  view on Meta::CPAN

#!perl
use strict;
use warnings;
use v5.10;
#PODNAME: lwp-online

use LWP::Online qw( online );

if (online()) {
	say "online";
}

else {
	say "offline";
}

__END__

=pod

=encoding UTF-8

=head1 NAME