sub print_if_true
{
    my $value = shift;

    if ($value)
    {
        print "Value '$value' is true!\n";
    }
    else
    {
        print "Value '$value' is false!\n";
    }

    print "This always prints.\n";
}