perl -e 'rename "./" . "\nbraindead\tname", "sensible_name"'