#!/usr/bin/perl
use strict;
$\ = "\n";
print "no \$foo" unless defined $main::{foo};
require 'foo'; # or do 'foo'
print $main::foo;