Help for this page
#!/usr/bin/perl ... $image->start_animation; MainLoop;
package Tk::Animation; ... $obj->set_frame(0); } }