my $sorce_direcrtory = $input_dir;
    my $new_directory = $output_dir;

    opendir(my $dh, $sorce_direcrtory) || die;
    while(readdir $dh) {
        if($_ =~ /.csv/){
            copy("$sorce_direcrtory/$_", "$new_directory/$_");
        }
    }
    closedir $dh;