...it is working fine.

Very nice.

But believe afoken and me, what you posted doesn't compile:

karls-mac-mini:monks karl$ perl -c pverstraten.pl 
Missing right curly or square bracket at pverstraten.pl line 28, at en
+d of line
syntax error at pverstraten.pl line 28, at EOF
pverstraten.pl had compilation errors.
[download]

Hence it is not possible to indent it properly using Perltidy:

karls-mac-mini:monks karl$ cat perltidy.ERR 
28:    final indentation level: 1

Final nesting depth of '{'s is 1
The most recent un-matched '{' is on line 12
12: {
    ^
28:    To save a full .LOG file rerun with -g
[download]

I guess: what you posted isn't the code that works fine.

Regards, Karl