use Piet::Interpreter;
my $p = Piet::Interpreter->new(image => 'add.gif');
$p->run;