#!/usr/bin/perl -w use strict; if (1==1) { 1; }