$ perl print-first.pl
usage: print-first.pl file

$ perl print-first.pl t1.txt
nick 5
john 78
erik 9