やってみた。 Net::Server使えば結構簡単にいろいろできるます 今回は色々やってないですが。 http://search.cpan.org/~rhandom/Net-Server/ もっとエラー処理だとか なんだかんだでやってもいいとおもいますけど とりあえずとりあえずで。 package Cache::Swifty::Server; use strict; use warnings; use base qw/Net::Server::PreFork/; sub process_request { my $self = shift; my $cache = $self->{server}->{cache}; my $client = $self->{server}->{client}; my $line = <$client>; $line =~ s/\r?\n$//; if (