+!!!翻訳したもの
+
+,モジュール名,status,URL
+,Parallel::ForkManager,済,http://perldoc.jp/docs/modules/Parallel-ForkManager-0.7.5
+,CGI::WebGzip,済,http://perldoc.jp/docs/modules/CGI-WebGzip-0.12
+,Filesys::DiskUsage,済,http://perldoc.jp/docs/modules/Filesys-DiskUsage-0.02
+,PerlIO::Gzip,済,http://perldoc.jp/docs/modules/PerlIO-gzip-0.17
+,File::Copy::Recursive,済,http://perldoc.jp/docs/modules/File-Copy-Recursive-0.06
+,CGI::Session::Hidden,済,http://perldoc.jp/docs/modules/CGI-Session-Hidden-0.01
+,Class::DBI::mysql,済,http://perldoc.jp/docs/modules/Class-DBI-mysql-1.00
+,Class::DBI::Sweet,済,http://perldoc.jp/docs/modules/Class-DBI-Sweet-0.05
+,UNIVERSAL::require,未アップ,-
+
+{{files v}}
+
+!!!POD切り出しツール
+
+perldoc.jpの井上さんが作成されたPOD切り出しツールです。
+
+{{code Perl,4,
+#!/usr/local/bin/perl -w
+
+# xpod.pl - extract pod from .pm file
+#
+# Copyright 2002 perldocjp project <perldocjp@freeml.com>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License.
+
+use FileHandle;
+use strict;
+
+# if no arguments are given, just print usage and exit
+if (@ARGV != 1) {
+ my $me = $0;
+ $me =~ s|.*/||; # get filename
+ print "Usage: $me file";
+ exit 1;
+}
+
+my $file = shift @ARGV;
+my $fh = FileHandle->new($file, 'r') or die "Cannot open $file: $!";
+
+# This algorithm came from the perldoc command
+my $inpod = 0; # true if processing pod text
+while (my $line = <$fh>) {
+ $inpod = ($1 ne 'cut') if $line =~ /^=(\w+)/;
+ next unless $inpod;
+
+ print $line;
+}
+
+$fh->close();
+
+exit;
+}}
+
+{{category Perl,nolink}}
