$var=STDOUT; open(LOG,$var); print LOG;