my $smb = new Filesys::SmbClientParser (undef, 
					("user" => $winuser,
					 "password" => $winpassword,
					 "Debug" => "1"
					)
				       );

$smb->Host($winserver);

$smb->Share($winshare);

$smb->get($winlogname, "/tmp/win.log") or die("THERE WAS AN ERROR SMBERR: " . $smb->err);

print "Winlog now at /tmp/win.log\n";

##</code><code>##

[root@mybox scripts]# smbclient -U ftpusr \\\\wit211\\W3SVC1 mypass
Domain=[NTDP] OS=[Windows Server 2003 3790 Service Pack 2] Server=[Windows Server 2003 5.2]
smb: \> get filename
getting file \filename of size 1763006291 as filename (8802.2 kb/s) (average 8802.2 kb/s)
smb: \> [root@mybox scripts]#