$ cat s.pl 
#!/usr/bin/perl -s
use warnings;
use strict;

our $x;
print "<$x>\n";

$ ./s.pl -x=foo
<foo>