1 #!/usr/bin/perl

     2 

     3 use strict;

     4 use File::Copy;

     5 use File::Path;

     6 

     7 my $epoc=$ENV{'EPOCROOT'} . "epoc32/";

     8 copy("BC_PLAT.h",	$epoc . "include");