#!/usr/bin/perl print join "::", @ARGV;