my $file = "EDK";
open (FH, '<', $file) or die "Can't open file $file $!";