use strict;
use warnings;
$x=1;