#!/usr/bin/perl
########################
# Modul Definition
#########################
use warnings;
use strict;
##########################
# Parameter Definition
#########################
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
my($date,$clock);
my ($File1);
my (@Array);
my ($cus_ID,$No_calls,$sum_call_time);
##########################
##########################
system("clear");
##########################
# Time-Calculation
##########################
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$date	=sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday);
$clock	=sprintf("%02d:%02d:%02d",$hour,$min,$sec);
###############################
# File-Operation
$File1	= "./workspace/inputfile.log";
if ( -e $File1 ){
	open (iFile,"<$File1") || die $!;

}

@Array 	= <iFile>;						# Copy File 2 Array

while (@Array){
	$ct	= shift(@Array);
	$cus_ID = $Array[0];
	print "Customer-ID: $cus_ID\n";

}