You can use Tk::RotatingGauge under the same terms as Perl itself.
