Select Code to Download

use strict;
use warnings;
...
        push @{$bookmarks{browserBookMarksData}}, { bookmark => "0", c
+reated => "01/12/2012" };
}
print to_json \%bookmarks;

{"browserBookMarksData":[{"created":"01/12/2012","bookmark":"0"},{"cre
+ated":"01/12/2012","bookmark":"0"},{"created":"01/12/2012","bookmark"
+:"0"}]}

print "Enter the limit : ";
chomp(my $lim = <STDIN>);
...
    };
}
print to_json \%bookmarks;