gistfile1

#!/usr/bin/perl 
$| = 1;
while (<>) {
    chomp();
    if( ! -f "/var/www/mediacas/$_" ){ 
        print "$_\n";
    }else{
        open(KEYFILE, "/var/www/mediacas/$_") || die "cannot open file for reading @!";
        my $line=<KEYFILE>;
        close(KEYFILE);
        if($line=~m/^([0-9a-f]+)/){
            print "hashes/$1\n";
        }else{
            #s|^.*|mediacas/incoming/test/test2.jpg|;
            print "$_\n";
        }
    }
}