Select Code to Download

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

    print "$user - $password\n";
}

#!/usr/bin/perl -w
use strict;
...
    my $random = String::Random->new();
    return $random->randpattern('ss!ccnC!cncc');
}