copy files with everything?

[Wischnewski, Berndt]

Hi all,

simple question, how can I copy file type, creator and icon  along with a file.


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

     copy("/private/var/root/Desktop/xxx/test1.doc", 
"/private/var/root/Desktop/yyy/test2.doc");

copies just the file, but the resulting test2.doc has lost the icon, file type and 
creator. I think there must be a way, which I simply dont now. 

Thank + By
Berndt Wischnewski