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

use vars qw( $qux $quo $zip );

$foo = 1;
$bar = 2;
$baz = 3;
$qux = 4;
$quo = 5;
$zip = 6;

sub hello {
  print "Hello, World!\n"
}