open(in,"start.txt");

my $startname=<in>;
$startname=~s/\W//g;
print $startname,"\n";
$startname =~ /(\d+)/;
$cnt=$1;
$cnt;

print "$cnt\n";

$fld=$file=$startname;
print $fld,$file;

##############ORACLE######################
$ftp = Net::FTP->new("ftp.ed-admin.com")||die "nono";
$ftp->login(....);
print $ftp->ls();


$ftp->cwd("$fld")or die "Cannot change working directory to $fld\n";
print $ftp->pwd();
$ftp->binary();
$ftp->get("$file.sql");



open(out,">start.txt");
print out "update"."$cnt\n";
 my $out=system("sqlplus updaterepo/update123@XE @$file.sql; ");
print $out;

sqlplus / as sysdba << EOF
set timing on;
select to_char(sysdate,'dd/mm/yy hh24:mi:ss') from dual;
spool $1.log;
set serveroutput on;
@$1;

EOF

$sql=`./run.sh "$f"`;
print "$sql\n";
}