#!/usr/bin/perl

use strict;
use warnings;
use File::Split;
use Data::Dumper::Simple;

my $infile = 'roegen6.vect';
my $outfile = "$infile-section.vect";

open IN, '<', $infile or die $!;
open OUT, '>', $outfile or die $!;

my $fs = File::Split->new({keepSource => 1});
$fs->split_file({'lines' => 12}, $infile);
print Dumper($fs);

close IN;
close OUT;