use strict;

use Prima qw( Application VB::VBLoader);
my $ret = Prima::VBLoad('H:\My Documents\PERL\Prima\Concepts.fm');
die "$@\n" unless $ret;

use vars qw(@ISA);
@ISA = qw(Prima::MainWindow);
$ret-> execute;

our $capture;