#print "0: $0\n";
#print "^X: $^X\n";
#printf "^P: %x\n", $^P;

if(!$^P)
  {
    # go debug mode
    # $^P = 0x3b7; 
    $ENV{PERL5DB} = '{ use TmmLib6::DB; }';
    exec($^X, '-d', $0);
    die "Can't exec.($!)\n";
  }
else
  {
    # now debug mode
  }

#print $ENV{PERL5DB}, "\n";

for(my $i = 0; $i < 2; $i++)
  {
    &aya(1);
    print "oyo\n";
    eval '
      print "aaa\n";
      for(my $i = 0; $i < 5; $i++)
        {
          eval { &aya(3) };
        }
      print "bbb\n";
    ';
    
  }
print "end\n";

sub aya {
  my $count = shift;
  if($count > 1)
    {
      &aya($count - 1);
    }
}