#!/usr/bin/perl -w

# (c)left Algirdas @ perl.lt
# passwdgen.pl v1.0 [2007.01.17]
#
# pavizdys (10 sugeneruotu slaptazodziu):
# http://perl.lt/duomenys/testai/passwdgen/passwdgen.pl

use strict;

my @simbol = split(
    " ",
"a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z - _ % ^ & # | 0 1 2 3 4 5 6 7 8 9"
);
my $slapt;

for ( my $i = 0 ; $i < 8 ; $i++ ) {
    srand;
    $slapt .= $simbol[ int( rand $#simbol ) ];
}

print "$slapt\n";