sub => ud

ud.pl

use Mojo::URL;
use Mojo::UserAgent;

my $term = 'wtf';

my $url = Mojo::URL->new('http://api.urbandictionary.com/v0/define')->query(term => $term);
my $tx = Mojo::UserAgent->new->get($url);
if ($tx->success) {
    my $results = $tx->res->json;
    my $definitions = $results->{list};
    foreach my $definition (@$definitions) {
        print $definition->{definition}, "\n";
    }
} else {
    my $err = $tx->error;
    die "$err->{code} response: $err->{message}" if $err->{code};
    die "Connection error: $err->{message}";
}