#!/usr/bin/perl

use strict;
use warnings;
$SIG{__WARN__} = sub { die @_ };
$| = 1;

print "x" x 2000;
sleep 5;