local *FD;
tie *FD, 'Filesys::SmbClient', @args;
open FD, 'smb://host/directory/file'
    or die "Can't read file:", $!, "\n";
print while (<FD>);
close (FD);