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

##</code><code>##

{
  Address => 456,
  Business_Address => "jkl",
  Business_Phone => "zxc",
  City => 789,
  Company => "fgh",
  Name => 123,
  Occupation => "asd",
  Phone => "uio",
  State => "qwe",
  Zip => "rty",
}