sub signature {
     my ($self) = @_;

     my @stat = stat $self->{Filename} or die "Couldn't stat '$self->{Filename}' : $!";

     return $stat[9];
};

##</code><code>##

sub signature {
     return -M $_[0]->{Filename} or die "Couldn't stat '$_[0]->{Filename}' : $!";
};