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

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