my $file;
my $path ='\/a\/notify\/';
my $rslt = 'result.txt';
my @files;

$ext = "\.log";

  ($Second, $Minute, $Hour, $DayOfMonth, $Month, $Year,
     $WeekDay, $DayOfYear, $IsDST) = localtime(time);

open(OUT, ">>$rslt");

if ($Month =0)
{
	my $New_mo = 'Jan';
}
if ($Month =1)
{
	my $New_mo = 'Feb';
}
if ($Month =2)
{
	my $New_mo = 'Mar';
}
if ($Month =3)
{
	my $New_mo = 'Apr';
}
if ($Month =4)
{
	my $New_mo = 'May';
}
if ($Month =5)
{
	my $New_mo = 'Jun';
}
if ($Month =6)
{
	my $New_mo = 'Jul';
}
if ($Month =7)
{
	my $New_mo = 'Aug';
}
if ($Month =8)
{
	my $New_mo = 'Sep';
}
if ($Month =9)
{
	my $New_mo = 'Oct';
}
if ($Month =10)
{
	my $New_mo = 'Nov';
}
if ($Month =11)
{
	my $New_mo = 'Dec';
}
print OUT $New_mo;

close (OUT);