truncate FILEH, "$file_cut_length"   or print "Unable : $! \n";

##</code><code>##

Unable : Invalid argument