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

use vars '$foo';
our(@foo);       # second use of *foo

$main::bar = 42;
%main::bar = (a => 1);       # second use of *bar

our($FOO, @DIR);
open(FOO,$0) or die $!;      # second use of *FOO
opendir(DIR, '.') or die $!; # second use of *DIR

sub blah {}
our($blah); # second use of *blah