#!usr/bin/perl

my ($sec,$min,$hour,$day,$month,$yr19,@rest) =   localtime(time);#######To get the localtime of your system
print "Date:\t$day-".++$month. "-".($yr19+1900)."\n"; ####To print date format as expected
print "Time:\t".sprintf("%02d",$hour).":".sprintf("%02d",$min).":".sprintf("%02d",$sec)."\n";###To print the current time

$SQLPLUS = "C:/sqlplus.exe";

if( -f$SQLPLUS )
{
	print " exe file is present\n";
}
else
{
	die "file is not present\n";
}

The code to run the sqlplus.exe.......shoud be here
.
.
.
.
.