gistfile1.txt

┌─[tadzik@yavin]─[~] 
└─[%]─> cat script.pl 
use strict;
use warnings;
use feature 'say';
use File::Copy;

mkdir 'empty';
chdir 'empty';
my $from = 'one';
my $to   = 'two';
say "Move error code: " . move($from, $to);
say "Does file exist: " . ((-e $from) ? 1 : 0);
┌─[tadzik@yavin]─[~] 
└─[%]─> perl script.pl 
Move error code: 0
Does file exist: 0