use strict;
use warnings;

my $x = $x || 5;
print "Now x = $x\n";