# Open the SSL connection and the input file my $client = new IO::Socket::SSL->new(PeerAddr => $host); open(F, "<$file") || die "Can't open $file¥n"; Perlスクリプティング 41 # Send the XML header and begin processing the file print $client '...