open my $file, '<', $filename