一段生成随机数的perl代码

sub getstring
{
   $str="";
   for($k=0;$k<6;$k++)
   {
      $num=int(rand(3));
      if($num==0) { $str.=pack("c",rand(10)+48); }
      elsif($num==1) { $str.=pack("c",rand(26)+65); }
      elsif($num==2) { $str.=pack("c",rand(26)+97); }
   }
   return $str;
}