Select Code to Download

BEGIN {
my @fields = qw/field1 field2/;
...
}
my $self = fields::new;
$self->{field1} = 'value1';