view release on metacpan or  search on metacpan

bin/tacochan_client  view on Meta::CPAN

#!perl
use strict;
use warnings;
use 5.008001;
use App::Tacochan;
use Getopt::Long ();
use LWP::UserAgent;
use HTTP::Request::Common;

my $parser = Getopt::Long::Parser->new(
    config => ['no_ignore_case', 'pass_through'],
);

my $tacochan_server = 'http://127.0.0.1:4969/';
$parser->getoptions(
    's|server=s' => \$tacochan_server,
);