Select Code to Download

use strict;
use warnings;
...
ok ! -d $destdir, "Destination directory $destdir does not exist";
ok ! move ($src, "$destdir/bar.txt"), 'Move fails as expected';
ok -e $src, "Source file $src still exists";