Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(./y.pl:6):       my $derp = 'x' x 30000;
  DB<1> n
main::(./y.pl:7):       my $dom = Mojo::DOM->new('<?xml version="1.0"?><herp><derp>Test</derp>
main::(./y.pl:8):       +</herp>');
  DB<1>
main::(./y.pl:9):       say length ( $dom->at( 'derp' )->text );
  DB<1>
4
main::(./y.pl:10):      $dom->at( 'derp' )->content( $derp );
  DB<1>
main::(./y.pl:11):      say length ( $dom->at( 'derp' )->text );
  DB<1>
30000
main::(./y.pl:12):      say $dom;
  DB<1>
<?xml version="1.0"?><herp><derp>xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx (30,000 printed total)</derp>
+</herp>
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.
  DB<1>