i am trying to insert data into a mysql database with a perl/TK GUI. i keep getting null entries in my database below is an example of what i used

Code:
$leftwindow->Label(-text=>'First Name', -width=> 20)->pack();
$Rightwindow->Entry(-background=>'green',-width=>20, -borderwidth=>2, -relief=>'sunken',-textvariable=>\$Data->{FName})->pack();
my $save_button = $addwin->Button(-text => "Add Contact", -command => [$addwin => &saveinfo])->pack();
}

MainLoop;

sub saveinfo
{
   my $query = "INSERT INTO contact (FName) VALUES(?)";
my $query_handle = $con->prepare($query);
$query_handle->execute($Data->{FName});}
Any help will be appreciated. Thanks