#!/usr/local/bin/perl
use warnings;
use strict;
use mydie qw(die);

print "hello world\n";
#calls the die exported by mydie.pm
die "argh!!!";