no warnings "all";

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

##</code><code>##

... or die "cannot open ...: $!";