Getting last line in file using PERL

#!/usr/bin/perl

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

while () {

if (eof) {

print $_;

}

}