$ perle 'open my $fh, "<", "XXX"; while (<$fh>) { print if 1 .. 3 }'
A
B
C