#!/usr/bin/perl

if($ARGV[0] !~ /^\d+/) { $count=9; }
else { $count=$ARGV[0]; }
system("head -c $count /dev/random | uuencode -m - | tail -n 2 | head -n 1 ");