Select Code to Download

c:\test>616053
THREAD: in da zone !! :)
...
MAIN: the lazy
THREAD: in da zone !! :)
Terminating on signal SIGINT(2)

#! perl -sw
use strict;
...
    read STDIN , $stuff,10;
    print "MAIN:", $stuff , "\n" ;
}

c:\test>616053
the quick brown fox jumps over the lazy dog
...
MAIN:ee the end
MAIN: of the la
Terminating on signal SIGINT(2)

#! perl -sw
use strict;
...
    my $stuff = <STDIN>;
    print "MAIN:", $stuff , "\n" ;
}

c:\test>616053
the quick brown fox jumps over the lazy dog
...
MAIN:enter some more

Terminating on signal SIGINT(2)

c:\test>616053
the quick brown fox jumps over the lazy dog
...
THREAD: in da zone !! :)
THREAD: in da zone !! :)
Terminating on signal SIGINT(2)

print "\rTHREAD: in da zone !! :) \n", $sharedInputBuffer;

## output
THREAD: in da zone !! :)
Whatever has been typed so f

THREAD: in da zone !! :)
THREAD: in da zone !! :)so f
Whatever has been typed so far