system(qq(if not exists "....." copy ...));
[download]

Although one might ask why you want to shell out at all, if you can do the same as easily within Perl...