######################################################################
# ReadRecord() Subroutine
######################################################################
sub ReadRecord {
   my($db, $server) = @_;

   open(DB, "<$db") || die "Unable to open current password database $db for ReadRecord(). $!\n";
   my @dbrecord = grep(/^$server,/i, <DB>);
   close(DB);

   my $pw = (split(/,/, $dbrecord[0]))[1];

   return($pw);
}