md5recursive.pl: Wrapper around md5sum, can work on files recursively.

md5recursive.pl

#!/usr/bin/perl -w
use strict;

my $recursive = 'true';
md5sum(\@ARGV);

sub md5sum{
    my $filelist = shift;
    foreach my $file (@{$filelist}){
        if ( -f $file ){
            system("md5sum \"$file\"");
        }
        if ( (-d $file) && ($recursive eq 'true') ){
            my @recfilelist;
            if ($file =~ /[ ]/){
                @recfilelist = glob('"'."$file".'"/*');
            } else {
                @recfilelist = glob("$file/*");
            }
            md5sum(\@recfilelist);
        }
    }
}