Help for this page

Select Code to Download


  1. or download this
    echo -n ab | perl -e "print getc; exec 'perl', '-e', 'print getc'"
    
  2. or download this
    echo -n ab | perl -e "sysread(STDIN, \$b, 1); print \$b; exec 'perl', 
    +'-e', 'sysread(STDIN, \$b, 1); print \$b'"