#!/usr/bin/perl
 
use Expect;
 
        $smbpasswd = Expect->spawn("/usr/local/samba/bin/smbpasswd -r mcmail -U
$username") || die "Could not spawn smbpasswd";
        print $smbpasswd "xela\n";
        print $smbpasswd "alex\n";
        print $smbpasswd "alex\n";