working on print_showinfo() perl