use strict;
use warnings;
BEGIN { *CORE::GLOBAL::close = sub { 1 }; };
close STDIN;