#!/usr/local/bin/perl
#----------------------------------------------------------------------
use Socket;
#----------------------------------------------------------------------
# 
#----------------------------------------------------------------------
my $remote = 'localhost';
my $port = 2345;
#----------------------------------------------------------------------
# ץ
#----------------------------------------------------------------------
while ($_ = shift @ARGV) {
    if (/^-s/)    { $remote = shift @ARGV; next; }
    if (/^-p/)    { $port = shift @ARGV; next; }
    if (/^-D/)    { $DEBUG_MODE = 1; next; }
    $KEY = $_;
}
#----------------------------------------------------------------------
# ФȤ³
#----------------------------------------------------------------------
if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
die "No Port" unless $port;

my $iaddr = inet_aton($remote);
my $paddr = sockaddr_in($port, $iaddr);
my $proto = getprotobyname('tcp');

socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(SOCK, $paddr) || die "connect: $!";
select(SOCK); $| = 1; select(STDOUT);
#----------------------------------------------------------------------
# 
#----------------------------------------------------------------------
my $line;

print SOCK "$KEY\n";
while (<SOCK>) {
    chomp;
    print "$_\n";
}
print STDERR "ok\n";

close (SOCK) || die "close: $!";
exit;
