#!/usr/bin/perl -w
use strict;
# Ask Perl to pull the chain after every 'write' or 'print'
$|++;

# Rest of code follows