Open urls from pinboard tags. pinboard_open today

pinboard_open

use JSON;
use WWW::Mechanize;
use Browser::Open qw( open_browser );
use JSON::Path;
my $url = 'http://feeds.pinboard.in/json/u:rblackwe/t:' .  join "/t:", @ARGV;
my $mech = WWW::Mechanize->new();
$mech->get($url);
my $jpath   = JSON::Path->new('$.[*].u');
foreach ( $jpath->values(decode_json $mech->content()) ) {
        open_browser $_;
}