#!/usr/bin/perl
use strict;
use POSIX;
use warnings;
open (NEWFILE, "C:\\cygwin\\home\\Administrator\\test.chr");
print "Start";
while(<NEWFILE>)
{
print $_;
}
print "end";