Index: /trunk/DataStore/Build.PL
===================================================================
--- /trunk/DataStore/Build.PL	(revision 6649)
+++ /trunk/DataStore/Build.PL	(revision 6650)
@@ -28,4 +28,8 @@
         'Test::Distribution'    => '1.22',
     },
-    script_files        => [qw(scripts/dsget)],
+    script_files        => [qw(
+        scripts/dsget
+        scripts/dsproductls
+        scripts/dsfilesetls
+    )],
 )->create_build_script;
Index: /trunk/DataStore/MANIFEST
===================================================================
--- /trunk/DataStore/MANIFEST	(revision 6649)
+++ /trunk/DataStore/MANIFEST	(revision 6650)
@@ -16,4 +16,5 @@
 lib/DataStore/Response.pm
 lib/DataStore/Utils.pm
+scripts/dsfilesetls
 scripts/dsget
 scripts/dsproductls
@@ -30,2 +31,3 @@
 t/10_dsget.t
 t/11_dsproductls.t
+t/12_dsfilesetls.t
Index: /trunk/DataStore/scripts/dsfilesetls
===================================================================
--- /trunk/DataStore/scripts/dsfilesetls	(revision 6650)
+++ /trunk/DataStore/scripts/dsfilesetls	(revision 6650)
@@ -0,0 +1,120 @@
+#!/usr/bin/env perl
+
+# Copyright (C) 2006  Joshua Hoblitt
+#
+# $Id: dsfilesetls,v 1.1 2006-03-20 22:03:53 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use vars qw( $VERSION );
+$VERSION = '0.01';
+
+use DataStore;
+
+use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
+use Pod::Usage qw( pod2usage );
+
+my ($uri);
+
+GetOptions(
+    'uri|u=s'           => \$uri,
+) or pod2usage( 2 );
+
+pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
+pod2usage(
+    -msg => "Required options: --uri",
+    -exitval => 3,
+) unless defined $uri;
+
+my $response = DataStore::FileSet->new( uri => $uri )->request;
+
+die "request failed" unless defined $response;
+die "request failed: ", $response->status unless $response->is_success;
+
+# file retreival succeed
+
+my $data = $response->data;
+
+unless ($data) {
+    warn "no files found";
+    exit(0);
+}
+
+print "# uri fileid bytes md5sum type \n";
+foreach my $fs (@$data) {
+    print 
+        $fs->uri, " ",
+        $fs->fileid, " ",
+        $fs->bytes, " ",
+        $fs->md5sum, " ",
+        $fs->type, "\n";
+}
+
+__END__
+
+=pod
+
+=head1 NAME
+
+dsproductls - list all the FileSets under a product from a DataStore server
+
+=head1 SYNOPSIS
+
+    dsproductls --uri <uri> [--last_fileset <filesetid>]
+
+=head1 DESCRIPTION
+
+=head1 OPTIONS
+
+=over 4
+
+=item * --uri|-u <uri>
+
+The URI of the file to be retrieved.
+
+=item * --lst_fileset|-l <filesetid>
+
+The FileSet ID of the last FileSet that you've seen.
+
+This flag is optional.
+
+=back
+
+=head1 CREDITS
+
+Just me, myself, and I.
+
+=head1 SUPPORT
+
+Please contact the author directly via e-mail.
+
+=head1 AUTHOR
+
+Joshua Hoblitt <jhoblitt@cpan.org>
+
+=head1 COPYRIGHT
+
+Copyright (C) 2006  Joshua Hoblitt.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License, or (at your option) any later
+version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place - Suite 330, Boston, MA  02111-1307, USA.
+
+The full text of the license can be found in the L<perlgpl> Pod as supplied
+with Perl 5.8.1 and later.
+
+=head1 SEE ALSO
+
+L<DataStore>, L<DataStore::Product>, L<DataStore::FileSet>
+
+=cut
Index: /trunk/DataStore/t/12_dsfilesetls.t
===================================================================
--- /trunk/DataStore/t/12_dsfilesetls.t	(revision 6650)
+++ /trunk/DataStore/t/12_dsfilesetls.t	(revision 6650)
@@ -0,0 +1,45 @@
+#!/usr/bin/env perl
+
+# Copyright (C) 2006  Joshua Hoblitt
+#
+# $Id: 12_dsfilesetls.t,v 1.1 2006-03-20 22:03:53 jhoblitt Exp $
+
+use strict;
+use warnings;
+
+use lib qw( ./lib ./t );
+
+use Test::Cmd;
+use Test::More tests => 3;
+
+=head1 NAME
+
+t/12_dsfilesetls.t - tests dsfilesetls
+
+=head1 SYNOPSIS
+    
+    prove t/12_dsfilesetls.t
+
+=cut
+
+my $prog = 'scripts/dsfilesetls';
+
+# last ditch effort to make sure dsproductls is executable
+chmod 0755, $prog;
+
+my $test = Test::Cmd->new( prog => $prog, workdir => '' );
+isa_ok($test, 'Test::Cmd');
+
+{
+    $test->run( args => '' );
+    missing_args(3, "Required options: --uri");
+}
+
+sub missing_args
+{
+    my ($exit, $errstr) = @_;
+
+    is($? >> 8, $exit, "error code is: $exit");
+    like($test->stderr, qr/$errstr/, "error string is: $errstr");
+}
+