package alter;

sub onPerform
{
  my $nec = shift;
  my $ipic1 = org::item::essential($nec, "Input Picture");
my $(ipic) = $nec->locateAbsolutepath($ipic1);
};