#!/usr/bin/perl ################ # script by TB # ################ ### 06/17/00 ### ################ use CGI qw(param); $song = param("song"); $audio = "audio.ram"; $url = "http://YOUR_SITE_.com/$audio"; if ($song ne "") { print "Location: $url\n\n"; } print "Content-Type: text/html\n\n"; open(SONG,">$audio"); if ($song eq "") { print "PNM:Reader
PNM:

"; } print SONG "$song"; close(SONG); exit;