Thx for the answer. Actually I used a standard header for the script (see below). No idea why it executed despite of the nonsense.

#!/usr/bin/perl -w
use File::Basename ;
use Fcntl qw (:flock :seek) ;
use warnings ;
use strict ;

use Data::Dumper qw(Dumper);
[download]