RoyK

#!/usr/bin/perl

use strict;
use warnings;

my $filename = "somefile.txt";
my %output = (
        success => "success",
        warning => "warning",
        failed => "failed",
);

open F,$filename or die "can't open file \"$filename\": $!\n";

my $data = <F>;
close F;

$data =~ s/[\r\n]//;
if ($output{$data}) {
        print $data . "\n";
        exit 0 if ($data eq $output{'success'});
        exit 1 if ($data eq $output{'warning'});
        exit 2 if ($data eq $output{'failed'});
        exit 3;
}

print "wtf?\n";
exit 3;