BEGIN { eval '1 // 2' or die
    "Perl version $] unsupported (version 5.010 required to get // operator)\n" }