perl -lane 'print $_; exit;' input.txt