my  $data;
    print STDERR " STDERR test (1)\n";

    tie *STDERR, 'IO::Scalar', \$data;
    print STDERR " STDERR test (2)\n";
    untie *STDERR;

    print STDERR " STDERR test (3)\n";
    printf "  Scalar string has length %d\n", length($data);
    printf "    and contains '%s'\n", $data;