my $out = "/home/users/user/tmp/$progname_$today.dat";

##</code><code>##

my $out = "/home/users/user/tmp/${progname}_$today.dat";

##</code><code>##

call_dir($p=1)
...
sub call_dir {
    if ($p == 1)
...
<p>would be better as:</p>
<c>
call_dir(1)
...
sub call_dir {
    my ($p) = @_;

    if ($p == 1)

##</code><code>##

my $main = "/home/users/user";
my @rootDirs = ("$main/tmp/", "$main/exe");
...
find ({wanted => \&data_for_path, follow=>1, follow_skip=>2}, @rootDirs);