#!/usr/bin/perl

print"hello\n";

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

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

print directory sprintf(txt, @files);

closedir DIR;