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