Domain=[XXX] OS=[SpinStream2] Server=[Windows 2000 Lan Manager]

##</code><code>##

#!/usr/bin/perl -w
use Filesys::SmbClientParser;
use Capture::Tiny ':all';

my $smb = new Filesys::SmbClientParser;
$smb->Debug(0);
$smb->Workgroup('mydomain');
$smb->User('myid');
$smb->Password('mypwd');
$smb->Host('myhost');
$smb->Share('mysharename');

# List content
$stderr = capture_stderr
{
   $smb->cd('to/som/directory')  or die("cd failed failed: $smb->err, $!");;
}; #<-note the closing ;

my @l;
$stderr = capture_stderr
{
   @l = $smb->dir or die("List failed failed: $smb->err, $!");
}; #<-note the closing ;

foreach (@l) {print $_->{name},"\n";}