#!/usr/bin/perl -w 

#usage perl split.pl BigmailList 100000
# Writen by Flipper

open(FIL,"<$ARGV[0]");
@fil = <FIL>;
close(FIL); 
$j = 1;
$i = 1;
$kol = $ARGV[1];
open (FO,">file$j.txt");
foreach $string(@fil) {
if ($i > $kol) {
     $j++; 
     $i=1;
     close (FO);
     open (FO,">file$j.txt");
 }
print FO "$string";
$i++;
}
close (FO);