use strict;
use warnings;

use DieWithCode qw( die_with_code );

$|=1;

eval { die_with_code(4, "Foo"); };
print "Caught: $@" if $@;

eval { die_with_code(5, "Bar\n"); };
print "Caught: $@" if $@;

s/\\n/\n/g for @ARGV;
die_with_code(@ARGV);