#!/usr/bin/perl

use Fcntl;
use POSIX qw(tmpnam);
use POSIX qw(ceil floor);

use Cwd;

use IPC::Open2;

use POSIX qw(strftime);

use Socket qw(:DEFAULT :crlf);

$tmpname = tmpnam();

print $tmpname;

$tmpname = $tempdir."V".(split /V/, $tmpname)[-1].".icd"; print $tmpname;