#!/usr/bin/perl

open(F,'<hdc.dirs');


while(<F>){
	chomp;
	printf("dump -p <%d> /mnt/recover/%8.8d.d\n", $_, $_);
}
