$x = int(rand(65535));
my $in;
open($in, '<', "somefile") or die $!;
for $line (<$in>)
{
   my $out;
   open($out, '>', "prefix$x.txt") or die $!;
   print $out $line;
   $x++;
}
[download]

Update:: Changed to work exactly like the shell version (as far as I can tell without being arsed to test it). Didn't try to optimize it or golf it further, so you can see the relative syntaxes involved.

And this has nothing to do with Win32, by the way.

Thanks, this is what I needed

my $out;
   open($out, '>', "prefix$x.txt") or die $!;
   print $out $line;
   $x++;
[download]


work great now. Why ? Perl is great at not placing a filehandle on a log file on win32 that I am tailing, but I have a vbscript that has to process each line. It is a looping vbscript, and I don't want to fork it for each line, rather have it loop picking up lines/files. Thanks

Perl is great at not placing a filehandle on a log file on win32

Could you please explain what this means? We can probably help you fix your real problem instead of your hack.

Something like this?

my $x = rand(65536);
foreach (@lines) {
   open(my $fh_out, '>', sprintf('prefix%04X.txt', $x)) or die;
   print $fh_out $_;
   $x = ($x + 1) % 65536;
}
[download]

I'm not sure how useful it is to start at a random number if you only increment afterwards.

Update: Ah! you're not refering to the variable named $RANDOM that exists in some shells. You're refering to some randomly named variable.

my $x = 0;
foreach (@lines) {
   open(my $fh_out, '>', sprintf('prefix.%04d.txt', $x++)) or die;
   print $fh_out $_;
}
[download]

Or if you are reading from file handle,

while (<$fh_in>) {
   open(my $fh, '>', sprintf('prefix.%04d.txt', $.)) or die;
   print $fh_out $_;
}
[download]

Perhaps you'll need to dig into perlintro and perlopentut first.