my $input = \*STDIN;
my $copy = $input;