如何在Linux下安装Perl模块

下面是我所写的一个具有类似功能的程序。

　　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";