Select Code to Download

#!/usr/bin/perl

...
          'hi'
        ];

CODE(0x99d9550) -- to something more meaningful? 
like print the whole subroutine code.