引用标准库查看当前目录

#!/usr/bin/perl
require "ctime.pl";
require "pwd.pl";
&initpwd;
printf "The present working directory is %s\n",$ENV{PWD};
&chdir ("../..");
printf "The present wording directory is %s\n",$ENV{PWD};
$today=&ctime(time);
print "$today";