perl split

chcel som ciklus ale uz som si to spravil, tu je simple script:
ten subor ma viacej riadkov takze som dal sekciu na 20000 riadkov
#!/usr/bin/perl

$file="file";

open (FHI,"$file") or die "Failed to read open $file: $!";

my $fcnt = 0;
for (my $cnt = 0; <FHI>; $cnt++) {
unless ($cnt % 20000) {
open FHO, ">file${fcnt}.txt" or die "Failed to write open file${fcnt}.txt: $!";
$fcnt++;
}
print FHO;
}

este sa chcem spytat z toho scriptu dole, ako by som to mohol importovat do databazy z perlu?
vdaka