#!/usr/bin/perl --
use strict;
use warnings;

my $command = ;

my @files = `ls` ;
my $old=0;
foreach my $file (@files)
{
        chomp $file;
        print $command;
        $old = `expr $(date +%s) - $(date +%s -r $file)`;
        print "$file","::",$old,"\n";
}