#!/usr/bin/perl -wl

package ap;

use Win32::OLE::Const "Adobe Photoshop";

package main;

$, = $/;

print sort grep defined *{"ap::$_"}{"CODE"}, keys %ap::;