#!/usr/bin/env perl

use warnings;
use strict;

select STDERR;
$| = 1;
select STDOUT;
$| = 1;

while (1) {}