use warnings;
use strict;
use Tk;

my $main = MainWindow->new ();
my $progressta = $main->Label ()->pack ();

for (1..10)
  {
  $progressta->configure (-text => "Robocopy is now processing $_");
  $main->update ();
  sleep (2);
  }

MainLoop ();