use Wx::Event 'EVT_PAINT'; EVT_PAINT($frame, \&OnPaint); sub OnPaint { my ($frame, $event) = @_; my $dc = new Wx::PaintDC($frame); $dc->DrawLine(...); }