use vars qw($IpAddress);
my $entry = $parent->Entry(-textvariable => \$IpAddress)
  ->pack(-side => 'left');
$parent->Button(-text => 'Go', -command => \&DoIt)
  ->pack(-side => 'left');

sub DoIt {
  print "Entry contains: $IpAddress\n";
} # DoIt