Select Code to Download

sub fill_list {
 my ($mask, $file) = @_;
...

 close LIST;
}

 print LIST map("$_\n", glob($mask));

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$