this is head1

sdf

green eggs

fdd

this is head3

text above should be script.

this is a big block of code

one for the money two fwo the show three to get ready and four to go

even though it doesn't look like it.

text below should be scriptive.

this should be a filename junk to junk

if ( $a <=> $b ) { print junk }

• ITEMNAMEHERE

• ITEMNAMEHERE

'',

and some more text here.

[Command => 'Header1', -command => 
	sub{ $textwindow->insert('insert linestart', 
		'=head1 HEADERNAMEHERE '); }
],

[Command => 'Header2', -command => 
	sub{ $textwindow->insert('insert linestart', 
		'=head2 HEADERNAMEHERE '); }
],

• First item

• Second item

Foo()

Description of Foo function

Bar()

Description of Bar function