#!/usr/bin/perl -w
use strict;

my @info = grep /:/, do {
    open my $pipe, "smbstatus -b|"
        or die "Couldn't spawn 'smbstatus': $!\n";
    <$pipe>;
};

for(@info) {
    my ($pid, $loginname, $machine, $dow, $mon, $day, $time, $year)
        = split /\s+/, $_, 8;

    print "$loginname logged in on machine: $machine (login: $mon $day - $time)\n";
}

print "\ntotal users: " . @info . "\n";