why does decode hang in perl -d ?

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::JSON;

my $str = qq{[
{
"text" : "
Mojolicious

Duct Tape for The HTML5 Web

",
"label" : "intro",
"notes" : "introduce myself"
}
] };


my $arr = Mojo::JSON->new()->decode($str);

print $arr->[0]->{'text'};