Select Code to Download

$f->Button(-text => "Save",
-command => sub { # do something with %info;
    use Data::Dump;
    dd \%info;
})->pack(-side => 'bottom');

{
  Address => 456,
...
  State => "qwe",
  Zip => "rty",
}