#!/usr/bin/perl -w
use strict;
use String::Random;

my $user="bobjones";
my $password= generateme();

test($user,$password);

sub test {
    my $user = shift;
    my $password = shift;

    print "$user - $password\n";
}
sub generateme {
    my $random = String::Random->new();
    return $random->randpattern('ss!ccnC!cncc');
}