#!c:/perl/perl.exe -w
use Net::FTP;
use MSSQL::Sqllib qw(:DEFAULT :rowstyles);
use Net::SMTP; use strict;