The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use warnings;
use strict;

use Test::More;

my @defined = grep { $ENV{$_} } qw/
  DATA_DUMPER_TEST
  DBICTEST_STORAGE_STRESS
  DBICTEST_FORK_STRESS
  DBICTEST_THREAD_STRESS
/;

$SIG{ALRM} = sub { die "\n\nENVCHECK prompt timeout\n\n\n" };
if (@defined) {
  diag join "\n",
    'The following ENV variables used to control the test suite, '
   .'but no longer do so, please remove them from your environment',
    @defined,
    '',
    '(press Enter to continue)',
  ;
  alarm(10);
  <>;
  alarm(0);
}
ok(1);

done_testing;