sub diff {

    return -1 unless -e $_[0];
    my @result = ();
    my $diff = ((stat _)[10]) - ((stat _)[9]);
    foreach my $time ((86400, 3600, 60, 1)) {

        push @result, $diff % $time;
        $diff -= $result[-1];
    }
    return @result;
}