#!/usr/bin/perl -w
...... 
......
.....
$input="$input"."$temp";