#!/usr/bin/perl -w
use strict;

sub _dfree
{
	my ($fh, @df);
	open $fh, "-|", "/bin/df", "-k", @_;
	@df=split while <$fh>;
	close $fh;
	return $df[3]
}

sub _dusage
{
	my ($fh, @du);
	open $fh, "-|", "/usr/bin/du", "-sk", @_;
	@du=split while <$fh>;
	close $fh;
	return $du[0]
}

my $source="/Volumes/Paketit/vMachines/";
my $target="/Volumes/Disk\ Image";


( _dfree($target) < _dusage($source) ) && print "ei mahdu\n";