#! /usr/bin/env perl
use strict;
use warnings;
use 5.010;

open my $fh,'>',"test.txt";
warn "FH: $fh";

close $fh;
warn "FH: $fh";

my $ret = select $fh;

say "Test to \$fh";

select STDOUT;
warn "'$ret'";