my $up = uc qq{'$folder'};