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

# Uncomment to change the order:
# *STDOUT->autoflush;

print "abc";
die "ABC";