Select Code to Download

open my $fh, '<:encoding(windows-1253)', 'filename.dat' or die "could 
+not open filename.dat for reading: $!";

header('Content-Type' => 'application/xml+xhtml;charset=UTF-8');

binmode STDOUT, ':utf8';

print '<?xml version="1.0" encoding="UTF-8"?>';