if (@dirlist = ($ftp->ls))
	{
	  foreach $_ (@dirlist)
	  {
	    if (s/(\w+shar\d\d\d\d\d\d\.\d\d\d\d)/$1/)
	    {
	      $file = $1
	    
	      if ($ftp->get($file))  
	      {
	      }
  
	      else
	      {
		print "$host: Got directory listing, but couldn't get file.\n";
	      }
	    }	  
	  }
	}