#!/usr/bin/perl -w

$home = "/home/sidburn/";

$t=time;
for(1..150000)
{
#    &a;
#    &b;
    &c;
}
$zeit = time - $t;
print "Zeit: $zeit\n";



sub a
{
    opendir(DIR,$home) or die $!;
    @files = grep{$_ !~ /^\.\.?$/}readdir(DIR);
    closedir DIR;
    }

sub b
{
    opendir(DIR,$home) or die $!;
    @files = readdir(DIR);
    closedir DIR; shift(@files);shift(@files);
}

sub c
{
    glob("$home*");
}