#! perl -sw
use strict;
open FOO, '<', 'foo' or die $!;

while( not eof( FOO ) ) {
	my @lines; push @lines, scalar <FOO> for 1..1000;
	open TEMPFOO, '>tempfoo' or die $!;
	print TEMPFOO @lines;
	close TEMPFOO;
	qx[ x --filename:tempfoo -firstline:1 -lastline:1000 ];	
}
close FOO;