my $command = '/usr/sfw/bin/smbclient -L rest of command goes here';
	my $output = qx{$command};
	if (defined $output){
		warn "$output defined";
	}else{
		warn "$output undefined";
	}
	warn Dumper $output;