perl -e 'print ((<>)[0..4])' filename