my $folder = "data";
my $up = '\'' . uc($folder) . '\'';
print $up . "\n";