$| = 1;
use strict;
use warnings;