sub signature { my ($self) = @_; my @stat = stat $self->{Filename} or die "Couldn't stat '$self->{Filename}' : $!"; return $stat[9]; };