Select Code to Download

#!/usr/bin/perl
use strict;
...
$app->draw_circle([10,10],30,[255,255,0,255]);
$app->update;
$app->run;