Select Code to Download

{
    my @FIELDS = qw( foo bar baz );
...
    my %params = set_params();
    # Call other subroutines here 
}

{
    my @FIELDS = qw( foo bar baz );
...
        bless \%self, $class;
    }
}