use strict;
use warnings;
use File::Copy;
my $basedir = "../../miniperl/";
my @DIRS = ( "bin" , "lib" , "lib/Exporter" , "lib/Tie" , 
             "lib/warnings" );

my @FILES = ( "lib/Autoloader.pm" , "lib/Carp.pm" , 
              "lib/Config.pm" , "lib/Dynaloader.pm" , 
              "lib/Exporter.pm" , "lib/Socket.pm" , 

              "lib/strict.pm" , "lib/vars.pm" , "lib/warnings.pm" , 
              "lib/XSLoader.pm" , "lib/Exporter/Heavy.pm" , 
              "lib/Tie/Hash.pm" , "lib/warnings/register.pm" );
             
print "\n   creating directory tree ...";
mkdir( "$basedir") || die "   Cannot mkdir $basedir \n   $!";
foreach (@DIRS) {
  mkdir(  $basedir . $_ ) || die "   Cannot mkdir $basedir$_ \n   $!";
}

print "\n\n   copying files ...";
copy("perl.exe", $basedir . "bin/perl.exe") or 
  die "\n   cannot copy perl.exe\n";
copy("perl58.dll", $basedir . "bin/perl58.dll") or 
  die "\n   cannot copy perl58.dll \n";
foreach (@FILES) {
  copy( "../" . $_ , $basedir . $_ ) or 
    die "\n   shit : shit : ../$_  $basedir$_\n";
}

print "\n\n   done. \n";