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