$ perl -d move_data.pl