diff --git a/Password.pm b/Password.pm index e2c12eb..985796c 100644 --- a/Password.pm +++ b/Password.pm @@ -122,7 +122,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;