#!/usr/bin/perl -w

use CGI qw(:standard);

my $url = param('url');

if ($url) {
	print header(), start_html(),
		"<script src=\"audio-player.js\"></script> ",
		"<p>$url<p>",
"<object type=\"application/x-shockwave-flash\" data=\"player.swf\" id=\"audioplayer1\" height=\"24\" width=\"290\">
<param name=\"movie\" value=\"player.swf\">
<param name=\"FlashVars\" value=\"playerID=1&amp;soundFile=$url\">
<param name=\"quality\" value=\"high\">
<param name=\"menu\" value=\"false\">
<param name=\"wmode\" value=\"transparent\">
</object>", end_html;

} else {
	print header(), start_html(),
		start_form(-method=> GET), "URL of MP3: ",
		textfield(-name => 'url'),
		end_form,
		end_html;
}