#!C:\perl\bin\perl.exe -wT
use strict;
use CGI qw/:standard/;
print header,
open (FILE, "c:/perl/directory.xml");
while (<FILE>){
chomp;
print "$_\n";
}