#!/usr/bin/perl
# $Id: warn_handler,v 1.1.1.1 2005/08/12 16:41:16 dodell Exp $
# Copyright 2001 Sun Microsystems, Inc.  All rights reserved.

use lib qw( ../../../../client/perl );

use CCE;
$cce = new CCE; $cce->connectfd();

$cce->warn("[[one.two]]");
$cce->warn("[[two.three]]");
$cce->info("[[three.four]]");
$cce->bye("SUCCESS");
exit(0);