my $dir = 'H://Perl//BackupCheck//OTA';