Select Code to Download

@list = bsd_glob('~gnat', GLOB_ERR);

...

die("glob returned no existing results\n")
   if not @list;

# XXX WRONG
$rv = print $fh (...);
...
if ($rv) {
   die("Unable to write to file: $!\n")
}