$main->width => 2000; 
$main->height => 1000;
[download]

is just wrong, see

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