Select Code to Download

$password = &random_password();

# Sub to create a random password
sub random_password {
...
$sql = qq{ INSERT INTO login (login, password) VALUES ($c[1], '$passwo
+rd')};
$sth = $dbh->prepare($sql);
$sth->execute();