#!/usr/bin/perl

use strict;
use warnings;

sub check_disk_space{0;}

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