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