$ perl -MTk -le " print for Tk->VERSION, $^V "
804.0295
v5.12.2


$ perl -MTk -le " print for Tk->VERSION, $] "
804.028
5.008009