#!c:\perl\bin\perl.exe
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;
use Syntax::Highlight::Universal;

my $q = new CGI();
print $q->header(), $q->start_html(-style=>{'src'=>'/styles/xml.css'});
warningsToBrowser(1);

open my $fh, '<', 'file.vxml' || die $!;
my @data = <$fh>;
my $hl = Syntax::Highlight::Universal->new();
my $result = $hl->highlight('xml', \@data);

print qq(<pre>);
print $result;
print qq(</pre>);

print $q->end_html();