Select Code to Download

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

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

call_dir($p=1)
...
...
    my ($p) = @_;

    if ($p == 1)

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