use strict;
use File::Copy;
copy("file.pdf", "file.doc") or die "Cant copy PDF to DOC: $!";