1$verbose = 1; 2$verbose = 0; 3 4$acc = 'SRR053325'; 5 6$cmd = "SRR053325=../data/no.json test-quality r $acc n"; 7print "$cmd\n" if $verbose; 8`$cmd`; die if $?; 9 10$cmd = "SRR053325=../data/full.json test-quality r $acc f"; 11print "$cmd\n" if $verbose; 12`$cmd`; die if $?; 13 14$cmd = "SRR053325=../data/dbl.json test-quality r $acc d"; 15print "$cmd\n" if $verbose; 16`$cmd`; die if $?; 17 18$cmd = "prefetch $acc"; 19`$cmd`; die if $?; 20 21$cmd = "test-quality $acc/$acc.sra"; 22print "$cmd\n" if $verbose; 23`$cmd`; die if $?; 24