#!/usr/bin/perl

use warnings;
use strict;

sub func1 {
    my $back = shift;

    if ($back == 1) {
        print "\$back is true.\n";
        return 0;
    }

    print "Doing something else.\n";

}

sub controlBack {
    my $count = shift;
    if ($count < 10) {
        return 0;
    } else {
        return 1;
    }
}

# Defining start-settings for MainLoop:
my $running = 1;
my $count = 0;
my $back = 0;

# Running the MainLoop:
while ($running) {
    $back = controlBack($count);
    func1($back);
    $count++;
    if ($count > 20) {
        $running = 0;
    }
}

print "Program ends.\n";