#!/usr/bin/perl 

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use VCfs;

my $dir = shift(@ARGV) || '.';
my $v = VCfs->new($dir);
print join("\n", $v->taglist, '');

# vim:ts=2:sw=2:et:sta
