#!/usr/bin/perl -sl

##</code><code>##

BEGIN { $^W = 1; }
sub BEGIN {
    if ($^W == 1) {
        print "Let's get started...\n";
    }
    else {
        die $@;
    }    
}

##</code><code>##

local $OUTPUT_RECORD_SEPARATOR = *\ ;