Initial commit from the 2013 with minor fixes. From now and then,

[perlbook.git] / l56.pl

#!/usr/bin/perl

use strict;
use warnings;

our $scalar= "Глобально и надёжно!";

sub tell_the_truth
  {
    chop $scalar;
    $scalar= $scalar . "- разные понятия!";
  }

tell_the_truth();
print "$scalar\n";