#!/usr/local/bin/perl 
use CGI qw(param); 
$srv = param('srv'); 
$art = param('art'); 
$alb = param('alb'); 
$trk = param('trk'); 
$dsk = param('dsk'); 
$tl = param('tl'); 
if ($tl eq "false") { 
if ($dsk eq "") { 
$dsk="1"; 
} 
if ($dsk ne "") { 
$dsk="$dsk"; 
} 
print "Content-type: audio/x-pn-realaudio\n\n"; 
print "pnm://216.106.166.184/MTVi1099/content/$srv/$art/$alb\_$dsk\_$trk\_07.rm\n"; } if ($tl eq "true") { 
$url = "http://www.transloader.com/transloader/tl.cgi?url=http://fakeit.hypermart.net/pnm.cgi?srv=$srv&art=$art&alb=$alb&trk=$trk&dsk=$dsk&tl=false"; 
print "Location: $url\n\n"; }