Help for this page

Select Code to Download

Select or download this

my @alphanumeric = ('A'..'Z', '*', '!' ,':', '>', 0..9);
my $randpassword = join '', map $alphanumeric[rand @alphanumeric], 0..
+13;
print "$randpassword\n"