Select Code to Download

    my %shared_data = (
            'dtLastRcvMsg' =>  time,
...
    $self->{'shared_data'} = $p1;
    $p2 = $self->{'shared_data'};
    $self->mylog( "P2: ($p2)" . Dumper( $p2 ));

c:\test\691728>..\junk.pl
..Non posso aprire il file /var/log/www/test1.dat (No such file or dir
+ectory)
...
          'dummy' => 5,
          'dtLastRcvMsg' => 1213706345
        };

#!/usr/bin/perl -w
#
...

    close F;
}