#!/usr/bin/perl
# Generate a random string for a password

$PW = substr(crypt(rand, 1), 3, 8);
print "$PW\n";