use Tk;

my $mw    = new MainWindow(-title => 'Test');
my $canvas    = $mw->Canvas(-width  => 512, -height => 512)->pack;

$id1 = $canvas->createLine(60,60, 400,400,-arrow => "first",-arrowshape => [ 20, 20, 20]);
$id2 = $canvas->createLine(60,60, 400,400,-arrow => "last",-arrowshape => [ 20, 20, 20]);

MainLoop;