open my $fh, '<', $myfile or die "No open $!\n";
while (<$fh>) {