package alter;

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

##</code><code>##

#!/usr/bin/perl -w
use pic;#.pm file

my $rapaz1 = 'C:/Users/RAPAZ/Desktop/try/train19_01.chm';


my $rapaz = alter->onPerform();
$rapaz-> {"Input Picture"} = ($rapaz1);