my $CopyFileW =  Win32::API::Wide->new(
    'Kernel32.dll',
    '
BOOL WINAPI CopyFileW(
  _In_  LPCTSTR lpExistingFileName,
  _In_  LPCTSTR lpNewFileName,
  _In_  BOOL bFailIfExists
);   ',
 );
$CopyFileW->( $from, $to );