Mini-implémentation de stat en perl

stat-date.pl

#!/usr/bin/env perl

#
# Retourne la date de dernière modifications d'un fichier
# sous forme de timestamp.
#

use strict;
use warnings;

my $filename = shift @ARGV or
	die "usage: $0 <filename>\n";

my @st = stat $filename or
	die "stat '$filename': $!\n";

print $st[9]."\n";