techouse

#!/usr/bin/env perl
use warnings;
use strict;
use autodie;
use LWP::UserAgent;
use JSON;
use DBIx::Simple;
use Text::Table;

my $mplayer = `/usr/bin/which mplayer 2>&1`;