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