#!/usr/bin/perl -w
use strict;
#......................................................................... main
package main;
   use Qt;
   use DigitalClock;  # aus DigitalClock.pm

   my $app = Qt::Application(\@ARGV);
   my $clock = DigitalClock(8);
   $clock->resize(350, 80);
   $app->setMainWidget($clock);
   $clock->show;
   exit $app->exec();