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

sub print_error_message {
    my $message  = shift;
    print STDOUT "ERROR: " . $message . "\n";
}


print_error_message("something bad happened");
print_error_message("something really horrible happened");
print_error_message("something sort of annoying happened");


1;
__END__