#!/usr/bin/perl -w
use strict;
use Tk;

my $MW = MainWindow->new();

my $canvas = $MW->Canvas( -background => 'white', );

$canvas->createPolygon(
    ( 10, 20 ),
    ( 20,  10 ),
    ( 250, 240 ),
    ( 240, 250 ),
    -fill => 'pink',
);

$canvas->createPolygon(
    ( 250, 20 ),
    ( 240, 10 ),
    ( 10,  240 ),
    ( 20,  250 ),
    -fill => 'pink',
);

$canvas->pack();

MainLoop();