Hash file #Perl

[n0m3rcy]

#!perl
# hash.pl (written by n0m3rcy)
use strict;
use Digest::MD5;
use Digest::SHA1;

my $file = shift || die "Must enter a filename.\n";

if (-e $file) { 
	my ($md5,$sha) = hash($file);
	print "File : ".$file."\n";
	print "MD5  : ".$md5."\n";
	print "SHA-1: ".$sha."\n";
}
else {
	print "$file not found.\n";
}


#------------------------------------------
# hash subroutine
#------------------------------------------
sub hash {
	my $file = $_[0];
	my $md5;
	my $sha;
	
	eval {
# Generate MD5 hash
		open(FILE, $file);
  	binmode(FILE);
		$md5 = Digest::MD5->new->addfile(*FILE)->hexdigest;
		close(FILE);
# Generate SHA-1 hash
		open(FILE, $file);
  	binmode(FILE);
		$sha = Digest::SHA1->new->addfile(*FILE)->hexdigest;
		close(FILE);
	};
	($@) ? (return $@) : (return ($md5,$sha));	
}

Regards,
n0m3rcy