#!/usr/bin/perl5 -w
# ´Á»ú¥³¡¼¥É EUC

#
use SIC;
use SICX::Commander::Site;

#
my $comm = SICX::Commander::Site->new();
my $module = join '::', 'SICX::Proc::Site_nf', 's_cat_site', 'kogyo';

#$comm->{sess}->set_config(
#    filedir => '/home/SIC/tmp/sess',
#    expires => '+1y',
#    path => '/',
#    domain => 'data.shop-info.com'
#);

unless ($comm->start($module)) {
    $comm->error();
}

#
$comm->finish();

#
exit(0);