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

$SIG{__DIE__} = sub { die("My error: ", @_); };
$SIG{__WARN__} = sub { warn("My warning: ", @_); };

warn("some warning");
die("aarggh!");