Select Code to Download

#!/usr/bin/perl -w
use Tk;
use Tk::LabEntry;
...

$mw->after(1000,sub{$a{bar} = "Moose!"});
MainLoop;