Select Code to Download

$ml->bindRows("<Button>", sub {$ml->focus();});

#!/usr/bin/perl

...
    return sprintf ("%04d%02d%02d%02d%02d%02d", 
            $year,$month,$day,$hour, $min, $sec);
}