use POSIX;
use Filesys::SmbClient;
  
my $smb = new Filesys::SmbClient(username  => "alian",
                                 password  => "speed",
                                 workgroup => "alian",
                                 debug     => 10);
  
# Read a file
my $server="jupiter";
my $path="doc/general.css";

my $fd = $smb->open("smb://$server/$path", '0666');
while (defined(my $l= $smb->read($fd,50))) {
  print $l;
}
$smb->close(fd);