#!/usr/bin/perl

use strict;
use warnings;

open say, '<', '/etc/nsswitch.conf'
  or die "Unable to open file1: $!\n";

print "Filehandle is now open!\n";

print "1: " . <say>;

exit;

##</code><code>##

Filehandle is now open!
1: # /etc/nsswitch.conf

##</code><code>##

use 5.010;

##</code><code>##

Name "main::say" used only once: possible typo at <script> line 13.
Use of uninitialized value $_ in say at <script> line 8.

Can't use string ("1") as a symbol ref while "strict refs" in use at <script> line 8.