#! /usr/bin/perl -w
print $ARGV[0];