#!/usr/bin/perl

print"hello\n";

opendir(DIR, '/') || die "can't opendir /homes/simms/butt";

my @files =grep(//, readdir(DIR));

foreach (@files){print"$_\n"};

closedir DIR;