#!/usr/bin/perl

use strict;
use warnings;


die "Not enough disk space.\n" unless check_disk_space;

sub check_disk_space{0;}