while (<DAT>) {}; $resnum = $.;

とか