perl上传文件???谢谢哦

在ftp上   怎么删除文件啊     是不是有专门的函数    
判断文件是否要删除     我是用   stat()函数来判断时间的     但是有点不行  
我的程序是  
use   warnings;
use   Net::FTP;  
my   $host= "172.16.7.38 ";  
my   $ftp=Net::FTP-> new($host)   or   die   "cannot   connect   to   ftp   server   $! ";
$ftp-> login( "csb ", "Csb1234 ");  
$ftp-> binary   and   print   "Set   type   to   binary\n ";
$ftp-> cwd( "/folder   1/ftproot ");     #这里要写的地址是ftp指定路径下的子目录
my   $root1= "file1/ ";  
opendir(FILE1,file1);
chdir   ($root1);
  $counter=0;      
foreach(readdir(FILE1)){
  my   $file=$_;    
    $counter++;    
    if($counter> =3){   #判断文件是否该移动    
  $ftp-> put( "$file ")   or   die   "get   faild\n ",$ftp-> message;
#同时把不符合条件的文件删除    
#??????
  }
}  
closedir   FILE1;
######删除ftp上的文件
  #1.先获取文件列表
  #2.判断文件的时间
  #3.删除相应文件
sub   checkDay{
    my   $time=shift();
    my   $day=int($time);
    $time=($time-$day)*24;
    my   $hour=int($time);
    $time=($time-$hour)*60;
    my   $minute=int($time);
    return   ($day,$hour,$minute);
}  
题目的完整信息是:
写个程序,要求把从Sql   Server导出的数据文件,上传到ftp上,但是在ftp上只能保留最近七天的数据文件       也就是说     当你将最近一天的数据备分文件上传到ftp上时,你必须删除最久的那个文件,保留最近七天的文件