Help for this page

Select Code to Download

Select or download this

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

Select or download this

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