open( my $null, ">", File::Spec->devnull ) 
    or die "Couldn't open null device";