#!/usr/bin/perl -w
use strict;
use vars qw/$abc @def %ghi/;
our($jkl, @mno, %pqr);
my($stu, @vwx, %y_and_z);
sub qux {}
open(FOO,$0) or die $!;
opendir(DIR, '.') or die $!;