#!/usr/bin/perl

open MYFILE1, "c:\\junk\\file-ansi.txt" or die;
open MYFILE2, "c:\\junk\\file-unicode.txt" or die;

print "going to print the asci file\n";
print "------------------------------------------- \n";
while (<MYFILE1>)
{
	print "$_";
}

print "\n\ngoing to print the unicode file\n";
print "------------------------------------------- \n";

while (<MYFILE2>)
{
	print "$_";
}

close MYFILE1;
close MYFILE2;