use ops qw(:default entereval sort exit rand ftsize ftfile caller stat);