#!/usr/bin/perl -w
########################
# Modul Definition
#########################
use strict;
##########################
# Parameter Definition
#########################
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
my ($date,$clock);
my ($HOME,$File1,$File2);
my ($ShellCommand,$extNUM,$last_nbs,$extDATA,$extPWD,$extLogin,$extDomain,$extProfile);
my @Array;
##########################
##########################
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
$File2	= "/home/admin/workspace/".$date."_ExtCheck.log";
if ( -e $File2 ){
	open (iFile,"<$File1") || die $!;
	open (oFile,">$File2") || die $!;

}
$ShellCommand 	= '/usr/bin/get_entry EXT ';
$extNUM		= '38164835036';
$extDATA 	= exec($ShellCommand.$extNUM.' EXTENSIONNAT=3');	# Run Shell-Command
$extDATA =~ s/&/\n/g;
print $extDATA;