x/box-o-sand
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

working through functions chapter

Browse Source
This commit is contained in:
Dan Buch 2011-01-05 21:48:04 -05:00
parent 3af25d3369
commit a0a4ec95a9
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cli/functions.pl Normal file
View File

@ -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__