#!/usr/bin/perl
use open ':utf8', ':std';
use if $] < 5.018, 'encoding','utf8';
use utf8; # encode = fromutf8, decode=toutf8
use strict; # scrict code
if (!$ENV{'CYCLONE3PATH'}){if (-d '/srv/Cyclone3'){$ENV{'CYCLONE3PATH'}="/srv/Cyclone3";}elsif (-d '/www/TOM'){$ENV{'CYCLONE3PATH'}="/www/TOM";}}
do $ENV{'CYCLONE3PATH'}."/.core/tom3";
if ($@){print STDERR "$@"}
END {use Inline;$SIG{__WARN__} = sub {};}