open(SOURCE, "<$source") 
     open(DEST, ">$file")
     binmode SOURCE;
     binmode DEST;
     print DEST <SOURCE>;