# First draft:
perl -we "@ARGV=qq'\42file name\42';1 while <>;print $.,$/"

# Quick, grab the eraser, that sol'n is too long!
# Second draft:
perl -we "1 while <>;print $.,$/" file_name