#!/usr/bin/perl
use strict;
use warnings;

my $InputParameter = 100;

while( 1 ){
	$InputParameter--;

	last if $InputParameter <= 50;
}

print "InputParameter: $InputParameter\n";