#!/usr/local/bin/perl -w
use strict;
use VCP::FilesDB;
my $db = VCP::FilesDB->new(
@ARGV ? ( StoreLoc => shift ) : (),
@ARGV ? ( TableName => shift) : ()
);
$db->open_existing_db;
$db->dump( \*STDOUT );
$db->close_db;
#!/usr/local/bin/perl -w
use strict;
use VCP::FilesDB;
my $db = VCP::FilesDB->new(
@ARGV ? ( StoreLoc => shift ) : (),
@ARGV ? ( TableName => shift) : ()
);
$db->open_existing_db;
$db->dump( \*STDOUT );
$db->close_db;