Как перемещать файлы в perl рекурсивно

Как перенести все файлы в каталог в предыдущий каталог в Perl с помощью системной команды?

Я попробовал следующий метод, и он показал ошибку

system('/bin/mv "test/*" , "./"');

bash: syntax error near unexpected token '/bin/mv "test/*" , "./"''

Пожалуйста, помогите.