use strict;

use Prima qw( Application VB::VBLoader);
my $ret = Prima::VBLoad('H:\My Documents\PERL\Prima\Concepts.fm',
	Populate => {onClick => sub{trythis("writing ...")}},
);
die "$@\n" unless $ret;

sub trythis {
	my ($x) = @_;
	$ret-> textbox-> set(text => $x);
}

our $global = $ret-> textbox-> text;
print "$global\n";
$ret-> execute;