perl -MO=Deparse
$main->width => 2000;
$main->height => 1000;
^Z
$main->width, '???';
$main->height, '???';
- syntax OK