#!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

lwp-online

=head1 VERSION

version 0.0.3

=head1 AUTHOR

faraco <skelic3@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by faraco.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
