working through functions chapter

2011-01-05 21:48:04 -05:00
parent 3af25d3369
commit a0a4ec95a9
1 changed files with 17 additions and 0 deletions
--- a/cli/functions.pl
+++ b/cli/functions.pl
@@ -0,0 +1,17 @@
+#!/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__