use strict; use warnings; print "here1\n"; @files = <*>; foreach $file (@files){ print $file . "\n"; } print "here2\n"; [download]
In reply to help with Print by jmiller