Select Code to Download

# Given $record
my %record;
@record{ qw/account address info/ }
...
($record{'account'}) = $record{'account'} =~ /^(\d+)$/ 
    or die 'Bad Account ID';    # detaints, too
# verify the rest