I don't see a CPAN module offhand, but you might consider a simple-minded approach. What happens if you try

my $output = qx{smbclient -L};
say $output;
[download]

Thank you. I've got the results in a variable. Here is how it prints with DataDumper:

$VAR1 = 'Printer1        Printer   Printer 1
Printer2       Printer   Printer 2
Store          Printer   Store printer
';
[download]

How can I create an array containing just the printer names (col 1)?

my @printers = $VAR1 =~ /^(\S+)/mg;
[download]

See Matching in list context in perlop.