print
"当前路径是：$current_dir\n"
;
在上面的代码中，
use Cwd;
语句将
Cwd
模块导入到代码中。然后，
getcwd()
函数用于获取当前工作目录，它返回当前工作目录的绝对路径。最后，我们将该路径存储在
$current_dir
变量中，并将其打印出来。
需要注意的是，在某些操作系统中，可能需要使用不同的目录分隔符。例如，在Windows上，路径使用反斜杠
\
作为分隔符，而在Unix/Linux上，路径使用正斜杠
/
作为分隔符。为了保证跨平台的兼容性，建议使用内置的
File::Spec
模块来处理路径。
例如，在上面的示例中，您可以将
$current_dir
变量的值传递给
File::Spec
模块的
canonpath()
函数，以规范化路径并转换为当前操作系统的目录分隔符，如下所示：
use Cwd;
use File::Spec;
my $current_dir = getcwd();
$current_dir = File::Spec->canonpath($current_dir);
print "当前路径是：$current_dir\n";
这样做可以确保在不同的操作系统上都可以正确处理路径。
