Help for this page

Select Code to Download

Select or download this

#!perl -w
use strict;
...
my $photo = $main->Photo(-format => 'gif', -file => 't.gif');

MainLoop;