Select Code to Download

#! /usr/local/bin/perl 

...
         -background => 'gray')->pack;

MainLoop;

#define betty_boop_width 20
#define betty_boop_height 20
...
   0x9f, 0x40, 0x06, 0x3c, 0x63, 0x03, 0x98, 0xf7, 0x02, 0xb8, 0xb5, 0
+x03,
   0xb8, 0x94, 0x02, 0xb8, 0xe3, 0x01, 0x38, 0x08, 0x03, 0x38, 0x1c, 0
+x01,
   0xe0, 0xff, 0x00, 0xf0, 0x60, 0x00, 0x78, 0x40, 0x00, 0xb0, 0x58, 0
+x00};