my @letters = ('A'..'Z','a'..'z',0..9,qw(! # $ % ^ | _));
my $UID = join("", @letters[map {rand @letters} (1..8)]);