#! /usr/bin/perl

use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const 'Adobe Photoshop';


my $ps = Win32::OLE->new('Photoshop.Application') or die $!;
[...]

$d1->PutBoolean(phKeyLowercase, 1);
[...]