Select Code to Download

#!/usr/bin/env perl

...

__END__
{"book":{"pages":5.03,"title":true}}

my $data = {
    book => {
...
        pages => 0+$number,
    }
};