Select Code to Download

1
2
...
d
e
f

31 0A 32 0A | 33 0A 34 0A | 35 0A 36 0A | 37 0A 38 0A | 39 0A 61 0A | 
+62 0A 63 0A | 64 0A 65 0A         1 2 3 4 5 6 7 8 9 a b c d

#!/usr/bin/perl
use warnings;
...
      -command => sub {$subwin1 => 'destroy'}
    )->pack( -side => "bottom" ); 
}

1
 2
...
 d
 e
 f

 $sublable->insert( 'end', @contents );

1
3
...
b
d
f

$sublable->insert( 'end', $_ ) for @contents ;