#! /usr/bin/perl

BEGIN {
	$smhome = "/tmp/sm";
	unshift(@INC, "$smhome/usr/lib/perl5/5.8.0","$smhome/usr/lib/perl5/5.8.0/cygwin-multi-64int");
}

use lib "$smhome/usr/lib/perl5/site_perl/5.8.0";

use English;
use XML::Parser; # dll
use XML::Simple;
use Mail::Sender;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Status;
use POSIX;
use Compress::Zlib; # dll
use File::Basename;

system("uname -a");