# Spawn as soon as possible when the Tk main loop runs:
$phwin->after(0, \&secondary_win);