All pastes #491815 Raw Edit

Something

public text v1 · immutable
·published 2007-05-16 21:20 UTC
rendered paste body
#!/usr/bin/perl 

use LWP::Simple;
use Storable qw(thaw);
use Data::Dumper; # only for debug
my $url = "http://example.com/storable-test2.cgi";
my $content = get $url;
die "could not get $url" unless defined $content;

my $table_clone;
#my %table_clone = %{ thaw($content) };
$table_clone = %{ thaw($content) };
sleep 1;
print Dumper(@$table_clone);
sleep 1;