Problem with STAT under Windows

I tryed some testkod below, i like Perl to give med TIME for every
file,
But all variable just get blank, (i got filename).

# Reads all files to a list
sub readFileList {
    my @[EMAIL PROTECTED]
    local $dev;
    local $ino;
    local $mode;
    local$nlink;
    local $uid;
    local $gid;
    local $rdev;
    local $size;
    local $atime;
    local $mtime;
    local $ctime;
    local $blksize;
    local $blocks;

    local @[EMAIL PROTECTED]
    local $dir_to_open="f:\\backupsv";
    opendir(DIR,$dir_to_open) || die("Cannot open directory !\n");
    @[EMAIL PROTECTED]
 readdir(DIR); # Get contents of directory
    closedir(DIR); # Close the directory

    # Now loop through array and print file names
    foreach $file (@[EMAIL PROTECTED]
) {
       if( substr($file,-3,3) eq "TXT" )   { # $file =~ /\*.txt/
        ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
$ctime,$blksize,$blocks) = stat($file);
            # getRefDate();
            print "File is $file\n";
            # push @[EMAIL PROTECTED]
                print "size $size \n";
                print "atime $atime \n";
                print "mtime $mtime \n";
                print "ctime $ctime \n";
            exit(0);
       }
     }
    return @[EMAIL PROTECTED]