print "\$0:$0\n";
print "$ARGV[0]\n";
print $ARGV[0]+$ARGV[0],"\n";
print $ARGV[0].$ARGV[0],"\n"