Tk::Error: Can't call method "Call" on an undefined value at C:/Perl/site/lib/Tk
/After.pm line 89.
 [once,[{},after#1,idle,once,[ConfigChanged,{},{}]]]
 ("after" script)