DateTimeLocaltime

#!/usr/bin/perl 

use strict;
use warnings;

print date(), "\n";

sub date {
	my ($sec,$min,$hour,$mday,$mon,$year,$wday, $yday,$isdst)=localtime(time);
	$mon++;
	$year += 1900;
	my $tarih = "$year.$mon.$mday" . "_" . "$hour.$min.$sec";
	return $tarih;
}