my $quotedfullelementpath = "\"" . $folderfullpath . "/" . $element . "\"";
    my $singlefullelementpath = "'" . $folderfullpath . "/" . $element . "'";
    my $fullelementpath = $folderfullpath . "/" . $element;
    print "-> " .$quotedfullelementpath . " is ";
    print "NOT " unless (-T $quotedfullelementpath);
    print "a text file\n";
    print "-> " .$singlefullelementpath . " is ";
    print "NOT " unless (-T $singlefullelementpath);
    print "a text file\n";
    print "-> " .$fullelementpath . " is ";
    print "NOT " unless (-T $fullelementpath);
    print "a text file\n";