BEGIN {
            $DB::single = 1;
            ...
    

##</code><code>##

    $ perl -d move_data.pl