#! Path to perl.exe -w
use strict;
use diagnostics;
use warnings 'all';

use Win32;
use Win32::OLE;
use Win32::ODBC;

use File::Find;
use File::stat;

use time::localtime;

use vars qw/%data/;
$data{path} = $ARGV[0];

system("cls");
print "\n\nTarget Path=> $data{path}\n";


find sub {
  print $File::Find::name, $/ if -f _;
},$data{path};


##</code><code>##


drive\folers1
	File1.snd
	File2.sop
	File3.xxs

dive\folder2
	File10.dod
	File34.opo
	.
	.
	.

##</code><code>##

find sub {
  print $File::Find::name, $/ if -f _;
},$data{path};

##</code><code>##

my $file_stat = stat ($File::Find::name);
print $creation_date;
print $modified_date;
print $accessed_date;
print $file_owner;
print $Full_file_path;
print $file_size