#!/usr/bin/perl -w
use Tie::File;
use strict;
 
 
my @pwfile;
 
tie  @pwfile, 'Tie::File', 'pwfile.dat' or die $!;
 
my $user = {
            name => 'Klem Kaddiddlehopper',
            uid => 'kkhopper',
            addr => '123 main street, anywhere, anystate, 12345, USA',
            passwd => 'shhh!'
};
my @fields=qw / name uid addr passwd /;
#
# Add the record!
push @pwfile,join('|',map{ $user->{$_}} @fields );

##</code><code>##

#!/usr/bin/perl -w
use Tie::File;
use strict;
 
 
my @pwfile;
 
tie  @pwfile, 'Tie::File', 'pwfile.dat' or die $!;
 
#
# Find a record
 
my $uid='kkhopper';
my $found=0;
foreach my $entry (@pwfile) {
  my @entries=split(/[\|]/,$entry);
  $found = 1 if ( $uid eq $entries[1]) and ($entries[3] eq 'shhh!' );
}
 
 
printf "WHHHOOOPPIE!\n" if $found;