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

print OUT "something";
print "I kept going";

__END__

Name "main::OUT" used only once: possible typo at C:\Projects_Perl\testing\testopenfailure.pl line 5.
print() on unopened filehandle OUT at C:\Projects_Perl\testing\testopenfailure.pl line 5.
I kept going
Process completed successfully