# Datei checksum.pm
use strict;
use warnings;
use Digest::MD5 qw(md5_hex);

sub checksum{
    my $self = shift;
    my $s = shift;
    return md5_hex($s);
}

1;