sub csv_xlsx{
    my $dir = "C:\\Temp\\Data";
    foreach my $fp (glob("$dir/*.csv")) {
       ...
    }
    unlink glob "C:\\Temp\\Data\\*.csv" or warn $! ;
}