Draw boxes in your Perl code to create Box objects of that size!