+############################### create_rand_addr ###############################
+# create a random mail address
+# IN : $domain: the domain part
+# OUT: $address: the address
+sub create_rand_addr {
+ my($domain)=@_;
+ my $allowed = 'ABCDEFGHJKLMNPQRSTUVWXYZabcdefghjkmnpqrstuvwxyz23456789-+_=';
+ my $address = '';
+ while (length($address) < 15) {
+ $address .= substr($allowed, (int(rand(length($allowed)))),1);
+ };
+ return ($address.'@'.$domain);
+};
+