#!/usr/bin/perl if(1) { #print "Content-type: audio/audio/x-pn-realaudio\n\n"; #print "Content-type: audio/x-mp3\n\n"; #print "Content-type: audio/mpeg3\n\n"; $p = $ENV{QUERY_STRING}; $p =~ s/\/([^\/]+\.mp3)/\/verses\/$1/; print "Location: http://bhagavad-gita.org/$p\n\n"; #print "http://bhagavad-gita.org/$p\n"; #print "http://gita/$p\n"; } else { print "Content-type: text/html\n\n"; foreach (sort keys %ENV) { print "