#!/usr/bin/perl -w
use strict;
use FileHandle;
my $infile="T:/data.dat";
open(IN,"$infile") or die "CANNOT OPEN $infile !!\a\n";
my $junk=<IN>;
$junk=<IN>;
$junk=<IN>;
$junk=<IN>;