#!/usr/bin/perl

use strict;

my $und_db = "C:\\Documents and Settings\\Administrator\\My Documents\\tmp\\test.txt";
my $out_dir = "C:\\Documents and Settings\\Administrator\\My Documents\\tmp\\foo";

system('xcopy', "\"$und_db\"", "\"$out_dir\\\"", '/r', '/y', '/i');