diff --git a/Password.pm b/Password.pm index 102df30..fb64b1f 100644 --- a/Password.pm +++ b/Password.pm @@ -136,7 +136,7 @@ sub save { # Generate password sub generate { - my @chars = ( "A" .. "Z", "a" .. "z", 0 .. 9 ); + my @chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, '!', '@', '$', '(', ')' ); my $string; $string .= $chars[ rand @chars ] for 1 .. 16;