Select Code to Download

#! perl -slw
use strict;
...
    print 'You entered: ', $in;
}

package MyGuiStdin;
our @ISA = qw[ Thread::Queue ];
...
}

1;