#!/usr/bin/perl
# $Id: warn_handler,v 1.3 2001/08/10 22:23:20 mpashniak 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);

