1open ICO, ">perl.ico" or die $!; 2while (<DATA>) { 3 chomp; 4 print ICO pack "H*", $_; 5} 6close ICO or die $!; 7 8# Create new hex data with 9# perl -wle 'binmode STDIN; $/ = \32; while (<>) {print unpack "H*", $_}' <perl.ico.orig 10# then place after __DATA__ 11__DATA__ 12000001000200101010000000000028010000260000002020100000000000e802 1300004e0100002800000010000000200000000100040000000000c00000000000 140000000000000000000000000000000000000000800000800000008080008000 1500008000800080800000c0c0c000808080000000ff0000ff000000ffff00ff00 160000ff00ff00ffff0000ffffff00000040000004000000000433334000000000 17003bb3000000000004b33b400000000044644644000000044ee44ee440000004 18eeeeeeee4000000eeeeeeeeee000000eeeeeeeeee000000eeeeeeeeee0000006 19eeeeefee60000000eeeeeeef000000000eeeeef0000000000066660000000000 200000000000000000000000000000f00f0000f81f0000fc3f0000f81f0000f00f 210000e0070000e0070000e0070000e0070000e0070000e0070000f00f0000f81f 220000fc3f0000ffff0000ffff0000280000002000000040000000010004000000 230000800200000000000000000000000000000000000000000000000080000080 24000000808000800000008000800080800000c0c0c000808080000000ff0000ff 25000000ffff00ff000000ff00ff00ffff0000ffffff0000000000044000004000 2600440000000000000000004444040404444000000000000000000004b3430343 27b400000000000000000000004bb333bb40000000000000000000000043bbbbb3 284000000000000000000000004b3b3b3b400000000000000000000004bbb3b3bb 29b4000000000000000000004b444b3b444b40000000000000000004b46644b446 3064b400000000000000004b46e6e4b4e6e64b4000000000000004b46e6e64446e 316e64b40000000000000446e6e6e646e6e6e644000000000000046e6e6e6e4eee 32ee6e6400000000000066e6e6eeee4eeeeeeee66000000000006e6e6eeeeeeeee 33eeeeee60000000000066e6eeeeeeeeeeeeeeee6000000000006e6eeeeeeeeeee 34eeeeee60000000000066eeeeeeeeeeeeeeeeee6000000000006e6eeeeeeeeeee 35feeeee60000000000066eeeeeeeeeeeefeeeef600000000000066eeeeeeeeeef 36feeee600000000000006eeeeeeeeefffeeeef6000000000000006eeeeeeeeeee 37eeef600000000000000006eeeeeeeeeeeef60000000000000000006eeeeeeeee 38ef60000000000000000000066eeeeeef66000000000000000000000006666666 390000000000000000000000000000000000000000000000000000000000000000 400000000000000000000000000000000000000000000000000000000000000000 4100000000000000000000000000000000000000000000ff8000ffffc001ffffe0 4203fffff007fffff007fffff007ffffe003ffffc001ffff8000ffff00007ffe00 43003ffe00003ffe00003ffc00001ffc00001ffc00001ffc00001ffc00001ffc00 44001ffc00001ffe00003ffe00003fff00007fff8000ffffc001ffffe003fffff8 450fffffffffffffffffffffffffffffffffffffffffff 46