#!/usr/bin/perl -wT
use CGI qw(:cgi);
use CGI::Carp qw(fatalsToBrowser);
use CGI::Carp qw(fatalsToBrowser);
$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin';
# my $input = param('input');
# Hardcoded file because I am lazy.  Add input later.
my $input = '/share/Music/podcasts/071115/sd20071114.mp3';
print "Content-type: text/html\n\n";
print "<center><h2>$input</h2></center>";
system "/usr/bin/mplayer $input"