Getting last line in file using PERL

#!/usr/bin/perl

open(INFILE, "input.txt") || die "Cannot open file $!\n";

while () {

if (eof) {

print $_;

}

}

Meeting MP

Meeting my MP. First meeting and to collect my pink ic.

10th Wedding Anniversary

Celebrating our 10th Wedding Anniversary this evening.

苦中一粒甜酸酸

苦中一粒甜酸酸...

My thoughts at the moments..