#!/usr/bin/perl
use strict;
use warnings;
use Data::HexDump;

my $tktdir = "/home/bkirch/PERL_LSN/TICKETS";
my $file;
my $offset;

opendir(TKS, $tktdir) || die "Oops ... $!";
my @files = readdir TKS;
close TKS;
foreach my $file (@files)
{
     open(FH,"+<$tktdir/$file") or die "Oops - Cant open ticket $!";
     binmode FH;
     while (<FH>)
     {
        if (/SCSI:INQ:80/)
        {
                $offset = tell (FH);
        #       print "$offset\n";
                #seek (FH, $offset, 94);
                seek (FH, $offset, 94);
                $offset = tell (FH);
        #       print "$offset\n";
                #read(FH, $SN, 10);
                sysread (FH, $offset, 10);
        #       print "$offset\n";
                my $BUF = "";
                syswrite (FH, $BUF, 10, $offset);
                print "$BUF\n";
              #  s[$offset][TEST123456]g;
        }
     }
}