Select Code to Download

#!/usr/bin/perl -w
use strict;
...

__END__
#output shown below.... in <readmore> section

$VAR1 = [
...
        };
          
</readmore>