perl -ne "die $_;" filename.txt