Select Code to Download

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

use warnings;
use strict;
my $filename = 'notepad |';
open( my $FH, $filename ) or die "Can't open '$filename': $!\n";

use warnings;
use strict;
my $filename = 'notepad |';
open( my $FH, "<", $filename ) or die $!;

my $filename = 'notepad |';
unless( -f $filename ) {
    die "Error: file '$filename' is not existing\n";
} # unless

#! /usr/bin/perl
use warnings;
...
    or die "Error: can't close '$outfile' for writing: $!\n";

print qq~There were $count instances of "and" in '$infile'\n";