open (FILE,"$filename") || die "Can't Open $filename: $!\n";