use constant SECOND => 0; use constant MINUTE => 1; use constant HOUR => 2; use constant DAY => 3; use constant MONTH => 4; use constant YEAR => 5; use constant WEEKDAY => 6; my @time = localtime(time); my $string = $time[WEEKDAY] + 1 . '-' . $time[MONTH] + 1 . '-' . $time[DAY] . '_' . $time[HOUR] . ':' . $time[MINUTE] . ':' . $time[SECOND] ;