Help for this page
unless (open (USERNAME, "username")) { print "ERROR:Cannot open username file.\n"; exit(1); # ERROR }
my $filename = 'foo'; open my $filehandle, '<', $filename or die "opening '$filename': $!";