- or download this
my @files = <substituent_R*.txt>;
- or download this
use Data::Dumper;
$Data::Dumper::Useqq = 1;
warn(Dumper(\@files));
- or download this
my $avg = $sum / $cnt;
- or download this
warn("Average=$avg\n");
- or download this
warn(__LINE__, " for $fn_in\n");