#!/usr/bin/perl -w print $argv[1] . "\n";