Select Code to Download

#! perl -w

...
sub TIEHANDLE { my $obj = shift; bless [ @_ ], $obj; }

sub PRINT { my $self = shift; print $_ $_[0] for @$self; }

H:\Developer\deploysystem\src>perl scratch.pl
scratch.pl | start | Wed Jun 30 12:13:45 2004
...
This is STDOUT
Now ask for STDIN: Input : 'mess with things' printed out of sequence
scratch.pl | end | Wed Jun 30 12:14:06 2004

H:\Developer\deploysystem\src>perl scratch.pl
scratch.pl | start | Wed Jun 30 12:15:07 2004
...
Now ask for STDIN: it works on my machine!
Input : it works on my machine!
scratch.pl | end | Wed Jun 30 12:15:18 2004