#!/user/bin/perl

use Filesys::SmbClient;
use XBase;

my $smb = new Filesys::SmbClient(username=>  "MYUSER",
                                 password=>  "**********",
				 workgroup=> "LAZYGROUP");
				 
my $smbfilehandle = $smb->open("smb://myserver/myshare/databases/readthistable.dbf");

XBase::Base::SEEK_VIA_READ(0);
my $thistable = new XBase("-", 'fh' => $smbfilehandle, 'ignorememo' => 1);

$thistable->dump_records("fs" => " | ", "rs" => " <-+\n",
			"fields" => [ "location", "filename" ]);

$smb->closedir($thistable);