#!/usr/bin/perl

use strict;
use warnings;
use File::Find::Rule;

my $directory = '\\path\';
my @files = File::Find::Rule->file->in( $directory );

for my $file ( @files ) {
    my $size = -s $file;
    my $mtime = -M $file;
    print sprintf "%s;%s;%s\n", $file, $size, $mtime;
}