#!/usr/bin/perl -w
use strict;
while(<>){}
print "Last line number was $.\n";