open my $fh, '<', ($filename || die $!);