print OUT < $varsource $vartarget END_HTML