#!/bin/sh
#! -*- perl -*-
eval 'exec /import/hstools/local/perl/perl-5.18.4/bin/perl -x $0 ${1+"$@"}'
  if 0;

use Tk;

$scrollwidth = 6000;
$scrollheight = 2200;

my $main = new MainWindow;

$maincanvas = $main->Scrolled(qw/Canvas -bg white -height 600 -width 1200  -borderwidth 0 -scrollbars se -scrollregion/ => ['0', '0', $scrollwidth, $scrollheight]) ->pack(@pl);

MainLoop;