#!/usr/bin/perl 

  use strict;
  use warnings;
  use Test::More tests => 1;

  ok 1, 'this works';
  $SIG{__DIE__} = sub { die @_ };
  cleanup();