123456
#!/usr/local/bin/perl -wuse strict;my $alter = (-M "test.pl"); # Gleitkommazahl!print "Letzte Änderung vor $alter Tagen\n";