print {$fh} "Database connected...To select users\n";