#!/usr/bin/perl -w

use strict;

open (NEWIN, "<&STDIN") or die "$!";
open (STDIN, "/dev/null");
print while (<NEWIN>);