Help for this page
if (!open my $fh, "<", "filename") { warn "Whatever"; return; }
open my $fh, "<", "filename" or do {warn "Whatever"; return;};