#!perl
#Script to build a project


# Win32::OLE gives access to COM objects,
# including the IDE’s COM objects
use Win32::OLE;

# Create an instance of CodeWarrior
$CW = Win32::OLE->new("CodeWarrior.CodeWarriorApp",'Quit');
# Get the command line argument
$projecttoopen = @ARGV[0];
# Open the project

$project = $CW->File->Open($projecttoopen, true, 0, 0)|| die "can't open a project $!"

# Build the project
# Build()
$project->Build();
# end of script