$foo = "Foo";
@bar = qw/B a r/;
%blah = ( b => 'l', a => 'h' );

##</code><code>##

#!/usr/bin/perl -w
use strict;

our($foo, @bar, %blah);
do "xyzrc" or die "xyzrc: $!\n";