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..

dentist

Dr Hong Yong Huat
360 Orchard Road #01-14
Singapore 238869
Tel: 67346522
Fax: 67351505

Dr Soh Jen
Braces & Aesthetic Dental Clinic Pte Ltd
10 Sinaran Drive, Suite #10-36
Novena Medical Center (Square 2)
Singapore 307506
Tel: 67322706

Tungsten MySql replication

Spend a fair bit of time to setup tungsten by continuent.  A software that enable mysql replication and load balance.

Book on business trading

Jack d schwager
Market wizards: interviews with top traders. Harper collins 1993.