Select Code to Download

#!/usr/bin/perl -l

...
__END__
abc
cde fgh

for my $control (keys %{ $dialog->{attributes} }) {

...
        print $val;
    }
}

    ...
    } elsif (!ref $val) {
        print $val;
    }