#!/usr/bin/perl
use warnings; use strict;
use File::Listing qw(parse_dir);
for (parse_dir(`ls -l`)) {
     ($name, $type, $size, $mtime, $mode) = @$_;
     print "Name: $name, Typ: $type\n";
}