Select Code to Download

#! /usr/bin/perl

...
    $txt->delete(0.1, 'end');
    $txt->insert(0.1, "$scale");
}

#! /usr/bin/perl

...
    $canvas->createOval(@scaledBotColon, -fill => 'yellow');   
    return;
}