open my $LOG, '>>', $logfile or die "Can't open <$logfile> $!";

close $LOG;

my $myfile = "$homedir/$File::Find::name";
my $attrib = get_attribs($myfile);

#!/usr/bin/perl
#
use strict;
use warnings;
use File::Find;
use MSDOS::Attrib qw(get_attribs set_attribs);

(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst)=localtime(time);

my $homedir = "\\\\ipaddress";
opendir (IMD, $homedir) or die "Couldn't find dir: IMD ($!)";
my @thefiles= readdir(IMD);
closedir(IMD);

#!/usr/local/bin/perl
#
use strict;
use warnings;
my $homedir = "c:/SCRIPT";
opendir (IMD, $homedir) or die "Couldn't find dir: IMD ($!)";
my @thefiles= readdir(IMD);
closedir(IMD);

my $x=0;
#create a list of ".1" directories
foreach my $f (@thefiles){    
     if($f =~ /(.+)(\.1$)/i && $f !~ /^\./i){

#!/usr/local/bin/perl
#
use warnings;

$homedir = "C:/SCRIPT/CJ0249A.1/\"Project Information\"";
$file = "$homedir/exist.txt";

if (-e "$file")
{
        print ("it exists");