Select Code to Download

#MYFILE
if [ $me = you ]
...
export ORA3=zzzz
fi

open MYFILE, "<$myfile";
 open COPYFILE, ">$copyfile";
...

system (" mv COPYFILE MYFILE ");