Select Code to Download

package alter;

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

#!/usr/bin/perl -w
use pic;#.pm file
...
my $rapaz = alter->onPerform();
$rapaz-> {"Input Picture"} = ($rapaz1);