#! 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;

##</code><code>##

perl -ne"print" junk | perl -le"
while( not eof(STDIN) ) { 
     $,=' '; push @a, scalar <> for 1..10; 
     chomp @a; 
     print reverse @a; 
     @a=(); 
}"

#Outputs
10 9 8 7 6 5 4 3 2 1
20 19 18 17 16 15 14 13 12 11
30 29 28 27 26 25 24 23 22 21
40 39 38 37 36 35 34 33 32 31
50 49 48 47 46 45 44 43 42 41
60 59 58 57 56 55 54 53 52 51
70 69 68 67 66 65 64 63 62 61
80 79 78 77 76 75 74 73 72 71
90 89 88 87 86 85 84 83 82 81
100 99 98 97 96 95 94 93 92 91
110 109 108 107 106 105 104 103 102 101
...