sub traverse { 
  my $dir = shift;   
  for (rdir($dir)) {
    foreach my $entry (parse_dir($_)) {
        my ($name, $type, $size, $mtime, $mode) = @$entry;        
        if( $type eq 'f' ) {
          my $time_string = strftime "%Y-%m-%d %H:%M:%S", gmtime($mtime);
          #print "File $name has an mtime of $time_string\n";
          print ".";
          push @rfiles, $mtime." ".$dir."\/".$name." ".$time_string;
          #print $mtime;
          #print $ftp->mdtm($dir."\/".$name);
        }
        else {  
          print $dir."\/".$name."\n";
          #traverse($dir."\/".$name);
        }        
    }
  }
}