sub wind_Up {
my( $self, $copyLocation, $tcid, %parseData, $actRecordType, %cdrHash ) = @_ ;
....
....}

##</code><code>##

$obj->wind_Up( $LOGPATH, $test_id, %matchData, $recordType, %recordHash );