Select Code to Download

#!/perl
use strict;
...
}

sub do_something { print $test, $/; }

$VAR1 = [
          bless( {
...
œ¿ê    Tç®       t
  û      A   
   a   
               A   (ø \
+'ààï ù a   ¼èˆ ä"¶ÔŒ')}, 'XEvent' )
                 }, 'Tk::Entry' )
        ];