1$D = ''; # '-+VFS';
2
3$a = 'SRR053325';
4
5`rm -fr $a` ; die if $?;
6
7$c = "prefetch $a $D"; # print "$c\n";
8$o = `$c` ; die if $?; # print "$o";
9die unless -f "$a/$a.sra";
10
11$o = `vdb-dump -R1 -CREAD $a/` ; die if $?; # print "$o";
12
13`rm -r $a` ; die if $?;
14