use Win32::OLE::Const;

my $ps = Win32::OLE::Const->Load( 'Adobe Photoshop' );
for my $key ( keys %{ $ps } )
{
    print "$key => $ps->{ $key }\n";
}