use File::Copy;
my $file = '/whatever/you/want';
my $bak = $file . '.bak';
(undef, undef, $mode, undef, $uid, $gid) = stat $file;
copy($file, $bak);
chmod $mode, $bak;
chown $uid, $gid, $bak;