#!/usr/bin/perl -w

use strict;

$a = 42;

print $a;