use strict;
use warnings;

package DieWithCode;

BEGIN {
   our @EXPORT = 'die_with_code';
   require Exporter;
   *import = \&Exporter::import;
}

use Carp qw( carp croak );

sub die_with_code {
   my $code = shift(@_);

   if ($^S) {
      croak(@_);
   } else {
      carp(@_);
      exit($code);      
   }
}

1;