perl -e 'open F, ">toto"; system ("mv toto tata"); print F 'goodbye'; sleep 30'