Select Code to Download

    my $dc = new Wx::ClientDC($frame);
    $dc->DrawLine(...);

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