#!/usr/bin/perl
# copy to ~/bin/

use strict;
use warnings;

use File::Temp qw/tempfile/;
use Data::Dumper;
use File::Spec;

my ($fh, $tmpfile) = tempfile(SUFFIX => '.txt');

printf $fh "\"Dateiname\",\"Grösse in Bytes\",\"Letzte Aenderung\"\n";


foreach my $file (@ARGV) {
  my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks)
    = stat($file);
  my ($volume,$directories,$filename) =
    File::Spec->splitpath( $file );

  printf $fh "\"%s\",\"%d\",\"%s\"\n", $filename, $size, scalar $mtime;
}

close $fh;

#system("soffice --calc $tmpfile");
system("gedit  $tmpfile");


unlink $fh;