# aperl canvas.pl
$af: Tk::Photo=HASH(0x19f4fbc)
$af = bless( {}, 'Tk::Photo' );