eval
{
  mkdir $DIR_LOCATION, 0777 || die "sigh";
};
if ($@)
{
    print "Never gets here to display error message.";
}