#!/usr/bin/perl -w
$|++;

print "foo";
sleep 5;
print "bar";