use vars qw($constantstring);
my $style = 'wxTE_MULTILINE';
*constantstring=\"$style";

Wx::TextCtrl->new( $self, -1, "", [5, 10], [-1, -1], $style );