my %object= ( InputFile => $inputFileName, InputSize => getFileSize($inputFileName), ControlFile => $controlFileName, ControlSize => getFileSize($controlFileName), ); return bless \%object;