my $devnull = File::Spec->devnull();
open my $in, '<', $devnull or die "failed to open $devnull: $!\n";