#!/usr/bin/perl -w
use strict; 
my $buff;
my $file ="/Perl/scripts/old/bak_PW/dkxy01_";
system("cls");
open (FH, $file ) or die "can't open $file: $!";
binmode(FH);
binmode(STDOUT); 
while (read(FH, $buff, 324)) {
    print STDOUT $buff;
}
close FH      or die "Closing: $!";