#!/usr/local/bin/perl

use IO::Socket::INET qw(CRLF);

my $client = IO::Socket::INET->new('blade:12333')
 or die "new: $@";

while (<$client>)
{if ($_ =~ /file: (.*)/)
 {open(FOUT,">>$1") || die "cannot create: $1";}
 elsif ($_ =~ /EOF/)
 {close(FOUT);}
 else
 {print FOUT;}
}

##</code><code>##

#!/usr/local/bin/perl

use IO::Socket::INET qw(CRLF);

my $client = IO::Socket::INET->new('blade:12333')
 or die "new: $@";

while (<$client>)
{if ($_ =~ /file: (.*)/)
 {open(FOUT,">$1") || die "cannot create: $1";}
 elsif ($_ =~ /EOF/)
 {close(FOUT);}
 else
 {print FOUT;}
}