#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
use Tk::Columns;

my $mw = tkinit();

my $c = $mw -> Columns(
	-columnlabels => [qw(column1 column2)],
	-listbackground => 'white',
	-listforeground => 'black',
	-buttonforeground => 'black',
	-buttonbackground => 'blue',
) -> pack(
	-fill => 'both',
	-expand => 1,
);

MainLoop;