#!/usr/bin/perl -w

use strict;
use vars qw/$my_very_own_global_variable_one $foo $three/;

# rest of the script goes here..