#!/usr/local/bin/perl

foreach $file (@ARGV) {

  print -M $file, "\n";

}