...
$InfoWindow->add("Label", -text => "Output: $output")->pack;
...
$InfoWindow->Show();
$InfoWindow->destroy;