#!/usr/bin/perl -w
BEGIN { DB::parse_options("NonStop=1"); }
# script here
$a = [1,2,3];
DB::parse_options("NonStop=0");