#!/usr/bin/perl -w
use strict;
use vars '$x';
$x="this is it\n";
1;