#!C:/perl/bin
use warnings;
use strict;

BEGIN {
    local $@;
    # call_undefined_subroutine_or_another_error("argument");
}
print "blabla\n";