#!/usr/bin/perl -w

use strict;

my $x = 123;

print "at first x is $x\n";
$x++;
print "and then $x\n";

print "just another line of output\n";