18 lines
328 B
Perl
18 lines
328 B
Perl
|
#!/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__
|