print "[$host], [$share], [$dir], [$user], [$pwd], [$workgroup], [$debug]\n";

# change share name from share$ to share\$
if ( $share =~ m/^.*\$$/ ) {
   $share =~ s/\$/\\\$/g;
   print "share is [$share]\n";
}
else { print "share is $share\n"; }

my $full_path = 'smb://' . $host . '/' . $share . '/' . $dir ;

print "[$full_path]\n";

my $fd = $smb->opendir("$full_path") or die "$!\n";