Select Code to Download

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

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

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