#!/usr/bin/perl -w

$ffdb=("ffdb.dat");
open(FILE, "$ffdb");
@ffdbdata=<FILE>;
close FILE;

print "Enter ID \n";
$ID = <STDIN>;
chomp($ID);

if ($ID eq "") {
print "Cant be empty!\n";
}

open(FILE, ">$ffdb");
foreach $line (@ffdbdata) {
$line=~ s/\n//g;
@column=split /\|/, "$line";
if ($column[0] eq $ID) {
if ($column[1] eq IN) {
print FILE "$column[0]|OUT\n";
} else {
print FILE "$column[0]|IN\n";
}
} else {
print FILE "$line\n";
}
}
close FILE;
exit(0);