#!/usr/bin/perl -w
use strict;
use Net::FTP;
use Date::Calc qw(:all);
use Encode qw(:all);

$filename="测试文本";
if($filename){
  system(" sqlldr test1/123456 data=$filename control=importwz.ctl");    
}