#!/usr/local/bin/perl -w print STDOUT "\n"; print STDOUT "\n"; my @files = `ls`; my $file; foreach $file (@files) { chomp($file); print STDOUT "$file\n"; print STDOUT "

\n"; print STDOUT "
\n"; } print STDOUT "\n"; print STDOUT "\n";