Select Code to Download

sub DEFAULT_FIELD { textfield(shift, "", 60) }

print table({ Border => 1, Cellpadding => 5 },
...
        td(($_->[2] || \&DEFAULT_FIELD)->($_->[0]))
    )} @info
);