simple_find("5.6.0");# 含 .pm 文件的源目錄
            use Pod::Html;
            sub simple_find{
            $sourth="/usr/local/lib/perl5/5.6.0html/"; #含 .html的目標目錄
            my ($input)=@_;
            my $file;
            $ddir=$sourth.$input;
            $cont=`file $ddir`;
            if ($cont !~/$ddir\:\sdirectory/){
            `mkdir $ddir`;
            }
            opendir(md,$input);
            my @file=readdir(md);
            closedir(md);
            @pfile= grep(m/\.pm/,@file);
            my @dfile= grep(!m/\.pm/,@file);
            @dfile=grep(!m/^\./,@dfile);
            foreach $pfile(@pfile){
            $pfile=~/\.pm/;
            $dfile=$`;
            $sfile=$input."/".$pfile;
            $dfile=$sourth.$input."/".$dfile."\.html";
            pod2html(
            "--infile=$sfile",
            "--outfile=$dfile");
            }
            foreach $file(@dfile){
            $vale=$input."/".$file;
            $cont=`file $vale`;
            if ($cont=~/$vale\:\sdirectory/){
            simple_find($vale);
            }
            }
            }