#!/usr/local/bin/perl
print join(/:/,"dog","day","afternoon");
print "\n";

./joinit
dogdayafternoon