#!/usr/bin/perl -w
{
    print "hello, world\n";
    $a = 0;
    $a++;
    $a++;
    $a++;
    print "\$a = $a\n";
}