#! /usr/bin/perl -w

use strict;
use warnings;

print "The end is nigh!\n";

die "Arrrrrgh!";
__END__
The end is nigh!
Arrrrrgh! at C:\Daniel\perl\PerlMonks\death.pl line 8.

##</code><code>##

open FILE, "no_such_file" or die $!;