#!/usr/bin/perl

use strict;
use warnings;

our $settings = "";
do "bar.pl";

print "[$settings]\n";