#!/usr/bin/perl -Tw
use strict;

print "I'm going to exit now.\n";
exit(255);

sub END {
  print "In END block\n";
  exit(1);
}