我服务器的linux系统自带Perl v5.14.1，这个版本的Perl似乎不支持Tk-PathEntry小部件（请参考：https ://code.activestate.com/ppm/Tk-PathEntry/ ） . 我可以知道是否有任何替代方法可以做到，以便我可以在条目小部件中为我得到的示例脚本映射完成路径，如下所示？
#!/usr/bin/perl
use Tk;
use Tk::PathEntry;
use Cwd;
$path = cwd();
$mw = MainWindow->new();
$mw->geometry( '300x80' );
$mw->resizable( 0, 0 );
$mw->PathEntry( -textvariable=>\$path )->pack;
$mw->Label( -textvariable=>\$path, -foreground=>'blue' )->pack;
$mw->Button( -text=>'Quit', -command=>sub{ exit } )->pack;
MainLoop;
我得到的错误消息似乎是我指向的 Perl 版本不支持 PathEntry 小部件：-假设'需要 Tk::PathEntry;' 在 path.ptk 第 14 行无法在 @INC 中找到 Tk/PathEntry.pm（@INC 包含：/nfs/disks/my_work/scripts/Tk-PathEntry-2.23/lib /usr/pkgs/5.14.1/lib64/ site_perl/x86_64-linux /usr/pkgs/perl/5.14.1/lib64/site_perl /usr/pkgs/perl/5.14.1/lib64/5.14.1/x86_64-linux /usr/pkgs/perl/5.14.1/ lib64/5.14.1 /usr/pkgs/perl/5.14.1/lib64/module/default/x86_64-linux /usr/pkgs/perl/5.14.1/lib64/module/default .) 在 /usr/pkgs/perl /5.14.1/lib64/module/default/x86_64-linux/Tk/Widget.pm 第270行
请建议。谢谢。