Help for this page

Select Code to Download


  1. or download this
    perl -e 'printf "\e[0%dm", 0'
    
  2. or download this
    printf "\e[$escape;%dm", int(rand 6) + 101 - 60 * ($is_windows || 0);
    
  3. or download this
    $/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
    + sig
    map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
    +" );