Query a random command from commandlinefu.com

gistfile1.pl

#!/usr/bin/perl

use HTTP::Tiny;
use JSON;

my $command ='random';
#my $command = 'browse/last-week/sort-by-votes';
my $url = "http://www.commandlinefu.com/commands/${command}/json/";

#print Dumper $res;
my $data = decode_json( HTTP::Tiny->new()->get($url)->{'content'} );

foreach my $trick ( @{ $data } ) {
	print $trick->{'summary'} . ":\n" . $trick->{'command'} . "\n\n";
}