#!/usr/bin/perl

use strict;

use warnings;

BEGIN {

    $| = 1;

}

...