use strict;

use POSIX;
use File::Basename;
use Time::Local;
use Benchmark;
use DBI;

my $BASE_DIR = "E:\\Backup\\Scripts";
my $EXPORT_DIR = "E:\\Backup\\Export";

my $perl_program = $^X;
my $perl_script = $0;
my $basename = basename($perl_script,".pl");


sub check_arguments{
   ...
   ... check arguments whether they are valid or not
   ...
}



# MAIN

sub check_arguments $ARGV[0] $ARGV[1];