$SIG{__WARN__} = sub { print "<HR><B>Warning : </B>$_[0]<HR>"; };