#!/usr/bin/perl
use warnings;
use strict;

use Tk;

my $mw = new MainWindow;

my $c = $mw->Scrolled(
   'Canvas',
   -width        => 600,
   -height       => 400,
   -scrollregion => [ 0, 0, 8000000, 500 ],
   -scrollbars   => 'osoe'
 )->pack(
   -fill   => 'both',
   -expand => 1
 );

$c->createLine( 40, 40, 7500000, 40 ,
          -width => 5,
          -fill => 'red',

);

my $fixed = $c->createText( 0, 0, -anchor => 'nw', -text => 'Top of view' );

MainLoop;