my @files = glob ('*.*');
print "",join("\n",@files),"\n"

##</code><code>##

use strict;
use warnings;


opendir (my $dir, ".") or die "unable to open current directory $_";
my @files;
my @directories;

foreach my $file (grep{ ($_ ne '.') and ($_ ne '..')} readdir $dir)
{
    if (-f $file )    {push @files, $file;}
    elsif (-d $file)  {push @directories, $file;}
    else { die "weird beast found! $file"}  
}

print "@files\n";
print "@directories\n";