If you run your program on itself ... you get

FILE SIZE   : 8688 bytes
SHRUNK SIZE : 4021 bytes
[download]

If you run perltidy on your program the result is 3,701 bytes.

And if you use state of the art compression algorithms, you get even smaller files, without ANY loss of information:

/tmp>gzip -9 < 11109831.pl > 11109831.pl.gzip
/tmp>bzip2 -9 < 11109831.pl > 11109831.pl.bz2
/tmp>lzma -9 < 11109831.pl > 11109831.pl.lzma
/tmp>dir 11*
-rw-r--r-- 1 alex users 8690 Dec  8 21:45 11109831.pl
-rw-r--r-- 1 alex users 3125 Dec  8 21:46 11109831.pl.bz2
-rw-r--r-- 1 alex users 3160 Dec  8 21:46 11109831.pl.gzip
-rw-r--r-- 1 alex users 3064 Dec  8 21:46 11109831.pl.lzma
/tmp>
[download]

Alexander