challenge-031/anton-fedotov/perl5/ch-2.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/env perl

use warnings;
use v5.10;

my $name = shift;
my $value = shift;
if (defined($value)) {$$name = $value}
else {$$name = 'I love Star Wars'}
say "Variable named $name have value: $$name";