#!/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);