#!/usr/bin/perl

use CGI;
use strict;

my $cgi=new CGI;

my $song_id=$cgi->param('song_id');

my $cmd=qq(/var/www/cgi-bin/ddj-remote 192.168.1.202 "juke_add_song $song_id");

my $result=`$cmd`;

print "Content-type: application/blah\n\n";

#print "command was [$cmd]\n";

#print "result was [$result]\n";