Select Code to Download

#! /usr/bin/perl
use warnings;
use strict;
...

use Data::Dumper;
print Dumper \%source;