use Tk::Wm; 
$toplevel->sizefrom('user')
#can be 'user' or 'program'