sub read_passfile {
	%passfile = ();
	open (PF, "$pass_file") or die "Couldn't read password file: $!";
	while (<PF>) {
		chomp;
		@_ = split("\t", $_);
		$passfile{ $_[0] } = $_[1];
	close PF;
	}

}