Help for this page
#!/usr/bin/perl ... # revert to original color system("echo -e "\e[0m");
#!/usr/bin/perl ... printf("%25s => %s\n", fg($color_str, $color_str), $_); } }