#!/usr/local/bin/perl -w
use strict;                                                                   use POSIX;
use Filesys::SmbClient;
                                                                                
my $smb = new Filesys::SmbClient(username  => "temp01",
                              password
                             =>"secret-hush-hush-password",
                                        workgroup => "ourWorkgroup",
                                        debug     => 10) or die $!;
                                                                                

my $fd = $smb->opendir("smb://BKPEBW2K10/data") or die $!;
foreach my $n ($smb->readdir($fd)) {print $n,"\n";}
closedir ($fd);
                                                                               
##</code><code>##

Not enough space at ./smbtest.pl line 45.