#!/usr/bin/perl
use strict;
use warnings;

my $x;
$x = $x+1;

print $x;