#! /usr/bin/perl
use strict;
use warnings;

my $filename = "sqldaten.txt";

my $wanted_db = "XX1";

my $free_space_threshold      = 12;
my $db_full_percent_threshold = 90;


open my $rh, '<', $filename or die "Error: open($filename) failed: $!";

while ( my $line = <$rh> ) {

    my ( $dbname, $free_space, $db_full_percent ) = ( split m{\s+}, $line )[0,2,3];

    next if $dbname ne $wanted_db;

    if ( $free_space < $free_space_threshold ) {
        printf "%s running out of space: %s MB left\n", $dbname, $free_space;
    } 
    if ( $db_full_percent > $db_full_percent_threshold ) {
        printf "%s running full: %s %% filled.\n", $dbname, $db_full_percent;
    } 

}

close $rh;