Hi, try this,
#!/usr/bin/perl -w
use strict;
use Tk;
my $mw = 'MainWindow'->new();
#Remove the Borders
my $cv0 = $mw->Canvas( qw! -background red -highlightthickness 0! )
->pack( qw! -fill both -expand 1 ! );
my $cv1 = $mw->Canvas( qw! -background blue -highlightthickness 0! )
->pack( qw! -fill both -expand 1 ! );
#Change the color of the Borders
my $cv0 = $mw->Canvas( qw! -background red -highlightbackground cyan!
+ )
->pack( qw! -fill both -expand 1 ! );
my $cv1 = $mw->Canvas( qw! -background blue -highlightbackground oran
+ge! )
->pack( qw! -fill both -expand 1 ! );
MainLoop();
Regards,
Velusamy R.
eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';