use strict;
use warnings;

my $los = 1;

while(1)
{
$var = hole_infos($los);
print $var;
$los++;
sleep(5);
}

sub hole_infos {
my $los = $_[0];
$los = $los+1;
return $los;
}