git.rot13.org Git - webpac2/blob - scripts/webpac-lookup-dump.pl

   1 #!/usr/bin/perl -w
   2
   3 # dump WebPAC lookups
   4
   5 use strict;
   6 use Storable qw/retrieve/;
   7 use Data::Dump qw/dump/;
   8
   9 my $path = shift @ARGV || die "usage: $0 /path/to/lookup\n";
  10
  11 print dump( retrieve( $path ));
  12