my $copy_ze = "&copy";   
my $copyright = $prog->Label(-text=> $copy_ze. "2006, by Daniel Cip ")->pack();