sbeitzel

#!/usr/bin/perl

use strict;
use warnings;

sub hash_file {
    my $fileName = shift(@_);
    my $sumString = `md5sum $fileName`;
    if ($sumString =~ /([a-f0-9]{32})/) {
        return $1;