#!/usr/bin/perl
use strict;
use warnings;

#plays a random track in your current mpd playlist. requires mpc

my $max = `mpc stats | head -n 3 | tail -n 1 | awk '{ print \$2 }'`;
my $playnum = int rand $max;
system "mpc play $playnum";