#!perl

# -*- perl -*-

use strict;
use warnings FATAL => 'all';

use Store::Digest::Driver::FileSystem;

my $driver = Store::Digest::Driver::FileSystem->new(dir => '/tmp/store-digest');

for my $uri (@ARGV) {
    $uri = URI->new($uri);
    warn $uri;

    for my $out ($driver->get($uri)) {
        print $out->as_string;
    }
}
