#!/usr/bin/perl

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

readline(F);

while(<F>){
	   m,(\d+)\s.*Wed Oct 27,
	&& printf("dump -p <%d> /mnt/recover/%8.8d\n", $1, $1);
}
