print $w_FH<<THEEND;