#!/usr/bin/perl -w
...
use warnings;
...
BEGIN { $^W = 1; }
sub BEGIN {
    if ($^W == 1) {say "Let's get started..."}
    else {die $@}
}