#!perl
use blib;

BEGIN {
  # protect against prove-style non-interactive usage (Test::Harness fails)
  # make test works okay
  if ($ENV{AUTOMATED_TESTING} or $ENV{PERL_DL_NONLAZY}) {
    print "1..0 # skip non-interactive Test::Harness. Try make test instead.\n";
    exit;
  }
  use B::Debugger(@_);
  print "1..3\n";
  print "# enter c to finish the test";
}
for (1,2,3) { print "ok $_\n" if /\d/ }