#!/usr/bin/perl -w

    use strict;
    use IO::Scalar;

    my $str;
    tie *TMP, 'IO::Scalar', \$str;

    print TMP "Hello, World!\n";

    print "Not a FH\n" unless defined eval {fileno \*TMP};