sub SafeBackticks {
        my ($cmd, @args) = @_;
        open (my $pipe, '-|', $cmd, @args)
                or die "Could not run $cmd @args: $!\n";

        my $output = do {local $/; <$pipe>};
        defined ($output) or die "read: $!";

        unless ( close($pipe) ) {
                my $error = ($? & 0x7f)
                        ? 'Signal ' . ($? & 0x7f)
                        : 'Exit status ' . ($? >> 8);

                die "$error: $cmd @args";
        }
        return $output;
}