@H_502_3@Possible Duplicate: 07000
#!/usr/bin/perl -w @files = <*>; foreach $file (@files) { print $file . "\n"; }
@files = <*>;
@files = </var/www/htdocs/*>; @files = </var/www/htdocs/*.html>;
