use strict;
use warnings;

printSomething('Hello, world.');

printSomething();

sub printSomething {
	my $string = shift || 'Nothing was sent.';
	print $string, "\n";
}