#!/usr/bin/perl
$| = 1;
sleep 10;
print "x\n";
while (1) { sleep 10; }