use strict;
use sig_bla;
sub bar
{
    my $foo = 5;
    open (FO, ">/tmp/test_file") or die "doh!?";
    print  "file open\n";
    print FO "Some small data in the open file\n";
    while (1)
    {
	sleep 1;
    }
}
our @MYARR  = ( 1, 2 ,3);
my @my_arr  = ( 1, 2 ,3);
my $apa = 2;
my $FOO  = 10;
our %MY_HASH = ( a => 2, b => 5);
my %myhash = ( a => 2, b => 5);
print "$$\n";
&bar();