sub getfilelist {
my $ftp = shift;
my @fileist =  $ftp->dir or die "Unable to retrieve file listing";
my $WK = '02';

    for my $file ( @filelist ) {

        next unless $file =~ m/ ^AB$WKCD.txt$/ or $file =~ m/ ^BC$WKDE.txt$/;

		}
}