BEGIN {
    $| = 1;
    print "BEGIN\n.";
}