# infobot
# copyright kevin lenzo (c) 1997-1999
# copyright david sobon (c) 1999-infinity
-# Copyright (c) 2001-2008 Tim Riker <Tim@Rikers.org>
+# Copyright (c) 2001-2014 Tim Riker <Tim@Rikers.org>
use strict;
use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
$bot_pid $memusage %param
);
+# ancient Perl may not like these, but modern systems should have this
+use open ':utf8';
+use open ':std';
+use Encode qw( decode FB_QUIET );
+
BEGIN {
if ( @ARGV and -f $ARGV[0] ) {