sub print_prompt {
   my($query) = @_;
    open( INFILE, "$conf_file" ) or die "$!";
    while (<INFILE>) {
        chomp;
        next if 0 == length($_);       				# Solves "Use of uninitialized value in .......... "
        my @elem = split ",";

        print("$elem[0]\n") if $debug;    			#description
        print("$elem[1]\n") if $debug;    			#URL
        print("$elem[2]\n") if $debug;    			#nr how many times viewed the URL
        
             
        print "<a href=$elem[1] target=\"_blank\" >$elem[0]</a><br>";
                      
        
    }
close INFILE;
    
}