use Cwd;
use Data::Dumper;
print("cwd = ", getcwd(), "\n");
print("files:\n", do {
    local $Data::Dumper::Useqq = 1;
    Dumper(\@files);
});