#!/usr/local/bin/perl -w
# cloaked.pl -- Zeigt die Namen von unsichtbaren .Dateien an.

chdir $ENV{'HOME'} or die "Can't go home :-( $!\n";

@noncloaked = <*>;      # Keine .files
@cloaked    = <.*>;     # Nur .files
@all        = <* .*>;   # Beide zusammen

print "Cloaked: (", join(' ', @cloaked), ")\n\n";
print "Visible: (", join(' ', @noncloaked), ")\n\n";
print "All    : (", join(' ', @all), ")\n";