32 char token generator

token_generator.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $count = $ARGV[0];
if (!defined $count) {
  $count = 1;
}

if ($count !~ m/^\d+$/) {
  die "${count} is not a valid integer";
}

my @chars = ("a".."z", 0..9);
for (1..$count) {
  my $string;
  $string .= $chars[int rand scalar @chars] for 1..32;
  print $string . "\n";
}