#!/usr/bin/perl
print "Foo\n";
sleep 2;
print "Bar\n";
sleep 3;
print "Foobar\n";