#!/usr/bin/perl

use Data::Dumper ;
use Storable qw{ lock_retrieve } ;

$r = lock_retrieve( $ARGV[0] ) ;

$Data::Dumper::Varname = 'data' ;
$Data::Dumper::Indent = 1 ;
$Data::Dumper::Quotekeys = 0 ;
$dump = Dumper( $r ) ;
$dump =~ s/^(\s+)/' ' x (length($&)*4)/gem ;
print $dump ;