[Samba] SMBCLIENT and PERL

[Brian]

I am trying to execute a command to copy a file from my Linux box to my
Windows 2K box in a perl script.

My problem is that when I use the command:

smbclient //thor/w-drive -A credentials -c "cd temp;lcd /home/test;put
testfile.txt testfile.txt"

from either a shell script or command line, it works, but in a perl script,
I get:

added interface ip=10.1.1.11 bcast=10.1.1.255 nmask=255.255.255.0
added interface ip=124.12.6.40 bcast=124.12.6.255 nmask=255.255.255.0
session setup failed: ERRDOS - ERRnoaccess (Access denied.)

Try as I might (using -U instead of -A, using env variables of PASSWD, etc)
I can NOT get that file to copy from a perl script. I always get the Access
denied error. From what I have been seeing, when run from perl, it looks
like it wants to connect anonymously no matter what parameters I set.

Any ideas?

Brian Andrus