#!/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");
     }