perl读取当前时间和读取某个文件夹下的所有文件

#!/usr/bin/perl
use strict;
sub getTime
{
 my $time = shift||time();
 my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
 $mon++;
 $sec = ($sec<10)?"0$sec":$sec;
 $min = ($min<10)?"0$min":$min;
 $hour = ($hour<10)?"0$hour":$hour;
 $mday = ($mday<10)?"0$mday":$mday;
 $mon = ($mon<9)?"0$mon":$mon;#月数[1,12]
 $year+=1900;
 #$wday从星期六算起，代表是在这周中的第几天[0-6]
 #$yday从一月一日算起，代表是在这年中的第几天[0,364]
 # $isdst只是一个flag
 my $weekday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];
 return {'second'=>$sec,
        'minute' => $min,
        'hour'   => $hour,
        'day'    => $mday,
        'month'  => $mon,
        'year'   => $year,
        'weekNo' => $wday,
        'wday'   => $weekday,
        'yday'   => $yday,
        'date'   => "$year-$mon-$mday $hour.$min.$sec"
        };
}
my $dir = "./test";
my $file;
my @dir;
my $date = &getTime();
my $ymd=$date->{date};
opendir(Dir,$dir)or die "can't open the directory!";
@dir = readdir Dir;
close(Dir);
print $ymd;
open (WFILE,">$ymd\.txt");
foreach $file(@dir)
{
 if($file=~/[a-z]*\.txt/)
 {
     open (FILE,"$dir/$file")or die "Can't cd dir:$!\n";
     while()
     {
      print WFILE $_;
     }
     close FILE;
 }
}

close WFILE;

下面的程序也是读取当前时间的

$ymd=qx(date /t);
chomp($ymd);
if($ymd=~/^(\S+)\s+\S+/){$ymd=$1}
$hms=qx(time /t);
chomp($hms);
if($hms=~/^(\S+)\s+\S+/){$hms=$1}
print "$ymd $hms";