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