my $source = "smb://bioboss/shared/Hubert/Blast/$file";
my $fd = $smb->open($source, '0666');
  while (defined(my $l= $smb->read($fd,50))) {print $l; }
  $smb->close($fd);