perl -ne 'printf "%4d  $_", $.'