#!/usr/bin/perl

$count = $ARGV[0];
@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, "!", "@", "-", ".");
$p = join("", @chars[ map{ rand @chars }(1 .. $count) ]);
print "$p\n";