Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use lib '/path/to/local/lib/';
use File::Tee qw(tee);
...
$CODE2 = <>;
chomp ($CODE2);
print ("You used $CODE2!\n=============================\n\n");
  2. or download this
    =============================
  Just a simple bug example
=============================
...
perl/teetest> Enter anything:   You used TeeTestPM!
=============================