while(<fln>)
{
my ($line)=$_;