Run this with media id args.
#! /usr/bin/perl -w
foreach $media (@ARGV){
open(FH,"bpimmedia -mediaid $media|");
while(<FH>){
@v=split(" ");
if($v[0] ne "IMAGE"){next}
$ts=$v[3];
$ts=~/.*_(\d+)$/;
@t=localtime($1);
print "# Backup ID: $v[3]\n";
$bt=sprintf("%02d/%02d/%04d %02d:%02d:%02d",$t[4]+1,$t[3],$t[5]+1900,$t[2],$t[1],$t[0]);
system("env LANG=C bplist -t $v[5] -s $bt -e $bt -R -C $v[1] /");
}
close(FH);
}