BEGIN{ $SIG{INT}=sub{ print $counter, $/ } }