echo foo >foo
echo bar >bar
perl -e "rename(foo,bar)"