01 #!/usr/local/bin/perl -w
02 use strict;
03 use MyDropbox;
04 use Data::Dumper;
05 
06 my $box = MyDropbox->new();
07 $box->context( "dropbox" );
08 
09 my $href = $box->list(
10     "/Photos");
11 
12 $Data::Dumper::Indent = 1;
13 print Dumper( $href );