#!c:/perl/bin/perl.exe                                                                                                  

use strict;
use warnings;
use IO::All;
use File::Basename;

my ( $in, $out, $io_objects, @line );

( $in, $out ) = @ARGV;

@io_objects = io($in)->all;

for my $io_object (@io_objects) {
    if ( $io_object->type eq 'file' ) {
        @line = (
            $io_object->name,
            ( $io_object->stat )[7],
            ( $io_object->stat )[9],
            ( fileparse( $io_object, qr/\.[^.]*/ ) )[2],
        );
    }
    join( "\t", @line ) . qq(\n) >> io($out);
}

__END__