open my $fh,'<','/home/terrance/Desktop/perl/record.txt' || die $!;