#!/usr/bin/perl
# Liberate to /dev/hda

use strict;
use Carp;
use Bccd;


my $Bccd = new Bccd();

	if($Bccd->get_stage() eq 'LIVE') {

		open(my $LIB, '-|', '/usr/bin/sudo',
				'/usr/bin/perl', '/root/liberate.pl',
				'--libdev=/dev/hda') or
			croak "Can't open /root/liberate.pl: $!\n";

		my @output = <$LIB>;
		print "@output";

		close($LIB);
	}