将文件移动到Perl中的另一个目录？

#!/usr/bin/perl
use File::Copy;

# 定义源文件和目标目录
my $source_file = 'source.txt';
my $target_dir = 'target_directory';

# 获取源文件的文件名
my $filename = $source_file;
$filename =~ s/.*\///;

# 拼接目标文件路径
my $target_file = "$target_dir/$filename";

# 使用move函数移动文件
move($source_file, $target_file) or die "File cannot be moved: $!";

print "File moved successfully.\n";