Select Code to Download

#!/usr/bin/perl
use warnings;
...
                             $graphicContext,
                             0,0,0,0,500,500,'normal',0,0);
}