300       end_html;

   300       end_html;

   301     exit 0;

   301     exit 0;

   302 }

   302 }

   303 

   303 

   304 sub base62 {

   304 sub base62 {

   306     state $digits = [0..9, 'a'..'z', 'A'..'Z'];

   307     state $digits = [0..9, 'a'..'z', 'A'..'Z'];

   307     state $base = @$digits;

   308     state $base = @$digits;

   308     my @result;

   309     my @result;

   309 

   310 

   310     for (;$n >= $base; $n = int($n/$base)) {

   311     for (;$n >= $base; $n = int($n/$base)) {