#!/usr/bin/perl
# igor korolev (c)  korolev-ia [at] yandex.ru
# v 1.0
# http://tools.unixpin.com
# password generator

srand(time ^ $$);
while(1) {
$_='';
foreach $a (1..8){ $_.=chr( int(rand(92))+33 ); } 
last if( /\d/ and /[A-Z]/ and /[a-z]/ and /[\!\"\#\$\%\&\'\(\)\*\+\,\-\.\/\:\;\<\=\>\?\@\[\\\]\^\_\`\{\|\}]/ ) ;
} 
print $_;