use strict;
use warnings;
use File::Copy;
my $from= "C:/prog/gtk+/bin/";
my %fm=('C:/strawberry/perl/site/lib/auto/Glib/' => [qw(
libglib-2.0-0.dll
intl.dll
libgthread-2.0-0.dll
libgobject-2.0-0.dll
)],
'C:/strawberry/perl/site/lib/auto/Cairo/' => [ qw(
libcairo-2.dll
libexpat-1.dll
freetype6.dll
libpng14-14.dll
libfontconfig-1.dll
zlib1.dll
)],
'C:/strawberry/perl/site/lib/auto/Pango/' => [qw(
libgmodule-2.0-0.dll
libpango-1.0-0.dll
libpangocairo-1.0-0.dll
libpangoft2-1.0-0.dll
libpangowin32-1.0-0.dll
)],
'C:/strawberry/perl/site/lib/auto/Gtk2/' => [ qw(
libgtk-win32-2.0-0.dll
libgio-2.0-0.dll
libgdk_pixbuf-2.0-0.dll
libatk-1.0-0.dll
libgdk-win32-2.0-0.dll
)]);

foreach my $dest (keys %fm){
 	my $files = $fm{$dest};
	foreach my $file (@$files){
		print "will copy $from$file to $dest/$file\n";
		copy("$from$file",  "$dest/$file") or die("failed... : $!");
	}
}