Perl - operacje na plikach

[Drza]

Witam. Walczę z zadaniem i potrzebuję pomocy . Chcę wyprodukować N plików o losowych nazwach 10-znakowych w katalogu
bieżącym.
Na razie mam taką postać, ale mam problem jak wylosować nazwę 10 znakową i potem wstawić do funkcji sysopen. Proszę o jakieś rady.

Kod: [Zaznacz]

#!/usr/bin/perl -w

use warnings;
use strict;

$N = 0;

#zabezpieczenie przed pustym N

do {
   print "Podaj N \\n";
   our $N = ;
   } while ($N != 0)

for ($i = 0; $i <= $N; ++$i)
   {
   # tu tworze plik i nie jestem pewien czy dobrze
   sysopen (UCHWYT, 'nazwa.txt', O_RDWR|O_EXCL|O_CREAT, 0755);
   }

[kapron]

generowanie nazwy:

Kod: [Zaznacz]

#! /usr/bin/perl

my @chars=('0'..'9', 'a'..'z', 'A'..'Z');
my $filename;

foreach(1..10) {
        $filename.=$chars[rand @chars];
}

print $filename;
print "\\n";

[ultr]

> while ($N != 0)

A nie czasem:

while( ( ! isnum( $N ) ) || ( $N <= 0 ) )

?