copy($localfile, $installfile)
   or die "$localfile unable to copy to $installfile : $!\n";

##</code><code>##

fixreadonly($plugindir) if $^O =~ /win32/i;

sub fixreadonly {
  my $dir = shift;
  my $unsetreadonly = Bio::Root::IO->catfile( $dir, "*.*");
  system("attrib -r /s $unsetreadonly");
}