opendir(TKS, $tktdir) || die "Oops ... $!";
my @files = readdir TKS;
closedir (TKS);

chdir "$tktdir";

my $cntr = "000";

foreach my $file (@files)
{
     unless ( ($file eq ".") || ($file eq "..") )
     {
     my $sncount = "$tapeDev$cntr";
     open(FH,"+<$file") or warn "Oops - Cant open ticket $!";
     binmode FH;
     while (<FH>)
     {
        #if (/SCSI:INQ:80/)
        if (/INQ:B1/)
        {
            $offset = tell (FH);
            print (FH "$sncount");
            $cntr++;
        }
     }
     }
}