truncate('_F_I_L_E',0);

# or

local(*ZERO);
open(ZERO, '> _F_I_L_E') && close(ZERO);
