BEGIN
{
  local $/=undef;
  my $stdin=<STDIN>;
  close(STDIN);
  open(STDIN,'<',\$stdin);
  seek(STDIN,0,0);
}