#!/usr/local/perl
use Net::FTP;
$FtpServer = "tavola.globecom.net";
$UserName = "oracle";
$Password = "oracle";
$dumpfile = "logs.dmp";
$Size = "50";
$file = "/install/Oracle/product/8.1.6/OraHome1/oradata/testdb/LOG_TBS.dbf";
$FileSize = `ls -la $file | awk '{print (\$5)}'`;
print ("filesize - $FileSize, Size - $Size");
if ($FileSize >= $Size)
{
print ("Alert File is Bigger than $Size");
system ("exp userid=logger/logger file=$dumpfile owner=logger");
system ("sleep 300");
$ftp = Net::FTP->new("$FtpServer", Debug => 0);
$ftp->login("$UserName",'$Password');
$ftp->cwd("/");
$ftp->binary;
$ftp->put("$dumpfile");
$ftp->quit;
system ("sqlplus user=oracle/oracle\@testdb \@delete_all_logs.sql");
system ("sleep 120");
system ("rm -rf dumpfile");
}