2 #############################################################################
3 ## Name: samples/trivial/trivial.pl
4 ## Purpose: Trivial wxPerl sample
5 ## Author: Mattia Barbon
8 ## RCS-ID: $Id: trivial.pl 2057 2007-06-18 23:03:00Z mbarbon $
9 ## Copyright: (c) 2006 Mattia Barbon
10 ## Licence: This program is free software; you can redistribute it and/or
11 ## modify it under the same terms as Perl itself
12 #############################################################################
18 my $app = Wx::SimpleApp->new;
19 my $frame = Wx::Frame->new( undef, -1, "Trivial Sample" );