#!/usr/bin/perl -w
########################
# Modul Definition
#########################
use strict;
##########################
# Parameter Definition
#########################
my($data,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
##########################
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);
###############################
my 	$InputParameter = 100;
my	$LoopParameter	= "false";
while($LoopParameter =~ "false"){
	$InputParameter--;
	if ($InputParameter <= 50){$LoopParameter = "true";}
}