#!/usr/bin/perl -w
use warnings;
use strict;
use POSIX;

my $command = "ant clean";
my $return = system ($command);

print "RETURN VALUE: $return\n";
print "CHILD_ERROR_NATIVE: ${^CHILD_ERROR_NATIVE}\n";