#! /usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $file = './test.pl';
my $mod = -M $file;
print $file." wurde vor ".$mod." Tagen zuletzt geändert\n";