Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

print "$coloredstring\n";
use Data::Dump 'dd'; dd 'coloredstring', $coloredstring;
  2. or download this
    /a/b/c/d/
("coloredstring", "/a/b/\e[1;31mc\e[0m/\e[1;31md\e[0m/")