#!/usr/local/bin/perl

use CGI qw(:all);
#my $cgi = new CGI;

$podfile = `/bin/cat /usr/home/www/pureidiom.com/docs/podcasts.txt`;
$podfile =~ s/\013//g;
$podfile =~ s/\012//g;

print "Content-type: text/html\n\n";
print "<!--\n\n";
print "document.write(\"$podfile\");";
#print "document.write(\"TEST TEST<br>\");";
print "  //-->\n";