programming-examples/perl/Subroutine/Define subroutine and call it with using global variable.pl

sub printifOK
{
    if ($value > 10 ) {
        print "Value is $value.\n";
    } else {
        print "Value is too small.\n";
    }
}

$value = 10;
printifOK;

$value = 12;
printifOK;