#!/usr/bin/perl
use strict;
use vars qw/$NAME $AGE $DATE/;

$NAME = 'jim';
$AGE = 29;
$DATE = `date`;