#!/usr/bin/perl

use strict;
use warnings;
use MS::Reader::PepXML;

my @files = @ARGV;

for my $file (@files) {

    warn "indexing $file\n";
    my $p = MS::Reader::PepXML->new($file);

}
