#! 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};