use Filesys::SmbClient;

my $smb = Filesys::SmbClient->new(
                 username   => $user,
                 password   => $pwd,
                 workgroup  => $workgroup,
                 debug      => $debug,
);

my $fd = $smb->opendir("smb://filer1/db_backups\$/rest") or die "$!\n";