#!perl  -w use strict; print $ARGV[0];