use POSIX;
  use Filesys::SmbClient;
  
  my $smb = new Filesys::SmbClient(username  => "luser",
                                   password  => "password",
                                   workgroup => "BILLING");
  
  # Read a file
  my $fd = $smb->open("smb://target/sharename/file.csv", '0666');