#!/usr/bin/perl
chdir '/tmp';
open my $LS, '-|', 'ls -lat bra*md5' or die $!;
while (<$LS>) {
    chomp;
    my($perms,$blocks,$u,$g,$size,$date,$time,$fn)=split;
    open $IN, '<', $fn or die $!;
    while (<$IN>) {
	my($md5,$path)=split;
	$md5s{$fn}{md5}=$md5;
	$md5s{$fn}{path}=$path;
    }
    foreach my $md5 (keys %md5s) {
	print STDERR "$fn:\n$md5s{$fn}{md5} $md5s{$fn}{path} \n";
    }
}