Language Basics Perl

#!/usr/bin/perl -w
use strict;
$main::x = 10;
print $main::x, "\n";