新手問: 怎樣叫 Cisco::CopyConfig 於指定位置建立 confg 檔

TFTP 服務器 與 Cisco::CopyConfig 預定根目錄為 /tftpboot.

想用 YYMMDD 日期格式目錄下放 TFTP 下來的 confg 檔.

怎樣叫 Cisco::CopyConfig 於指定位置建立 confg 檔?

例如: /tftpboot/20080721/test.conf

試加 $path   =       "${current}/${copy_f}"; 不行

================================
#!/usr/local/bin/perl5.8.8
use Cisco::CopyConfig;
use Date::Format;

$current = time2str("%Y%m%d", time), "\n";

`mkdir '/tftpboot/$current'`;

$tftp   =       '192.168.1.1';
$comm   =       'public';
$copy_f =       'test.confg';
$host   =       '192.168.1.254';
$config =       Cisco::CopyConfig->new(
                        host => $host,
                        comm => $comm);

$config->copy($tftp, $copy_f);
================================

結果: test.confg 始終在 /tftpboot 下出現 ...

謝謝.